home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 22.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 70 73 |piled by| kwzh@ps|
|00000020| 69 6c 6f 63 69 6e 2e 67 | 6e 75 2e 61 69 2e 6d 69 |ilocin.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 20 37 20 32 30 3a 30 | 33 3a 32 36 20 31 39 39 | 7 20:0|3:26 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 73 75 62 72 2e 65 6c 0a |.0/lisp/|subr.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 33 31 2e | 39 31 2e 31 2e 0a 3b 3b |n 19.31.|91.1..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 2e 32 39 22 29 29 |ersion "|19.29"))|
|00000190| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 73 |). (e|rror "`s|
|000001a0| 75 62 72 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ubr.el' |was comp|
|000001b0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001c0| 39 2e 32 39 20 6f 72 20 | 6c 61 74 65 72 22 29 29 |9.29 or |later"))|
|000001d0| 0a 0a 0a 23 40 37 30 32 | 20 52 65 74 75 72 6e 20 |...#@702| Return |
|000001e0| 61 20 6c 61 6d 62 64 61 | 20 65 78 70 72 65 73 73 |a lambda| express|
|000001f0| 69 6f 6e 2e 0a 41 20 63 | 61 6c 6c 20 6f 66 20 74 |ion..A c|all of t|
|00000200| 68 65 20 66 6f 72 6d 20 | 28 6c 61 6d 62 64 61 20 |he form |(lambda |
|00000210| 41 52 47 53 20 44 4f 43 | 53 54 52 49 4e 47 20 49 |ARGS DOC|STRING I|
|00000220| 4e 54 45 52 41 43 54 49 | 56 45 20 42 4f 44 59 29 |NTERACTI|VE BODY)|
|00000230| 20 69 73 0a 73 65 6c 66 | 2d 71 75 6f 74 69 6e 67 | is.self|-quoting|
|00000240| 3b 20 74 68 65 20 72 65 | 73 75 6c 74 20 6f 66 20 |; the re|sult of |
|00000250| 65 76 61 6c 75 61 74 69 | 6e 67 20 74 68 65 20 6c |evaluati|ng the l|
|00000260| 61 6d 62 64 61 20 65 78 | 70 72 65 73 73 69 6f 6e |ambda ex|pression|
|00000270| 20 69 73 20 74 68 65 0a | 65 78 70 72 65 73 73 69 | is the.|expressi|
|00000280| 6f 6e 20 69 74 73 65 6c | 66 2e 20 20 54 68 65 20 |on itsel|f. The |
|00000290| 6c 61 6d 62 64 61 20 65 | 78 70 72 65 73 73 69 6f |lambda e|xpressio|
|000002a0| 6e 20 6d 61 79 20 74 68 | 65 6e 20 62 65 20 74 72 |n may th|en be tr|
|000002b0| 65 61 74 65 64 20 61 73 | 20 61 0a 66 75 6e 63 74 |eated as| a.funct|
|000002c0| 69 6f 6e 2c 20 69 2e 65 | 2e 2c 20 73 74 6f 72 65 |ion, i.e|., store|
|000002d0| 64 20 61 73 20 74 68 65 | 20 66 75 6e 63 74 69 6f |d as the| functio|
|000002e0| 6e 20 76 61 6c 75 65 20 | 6f 66 20 61 20 73 79 6d |n value |of a sym|
|000002f0| 62 6f 6c 2c 20 70 61 73 | 73 65 64 20 74 6f 0a 66 |bol, pas|sed to.f|
|00000300| 75 6e 63 61 6c 6c 20 6f | 72 20 6d 61 70 63 61 72 |uncall o|r mapcar|
|00000310| 2c 20 65 74 63 2e 0a 0a | 41 52 47 53 20 73 68 6f |, etc...|ARGS sho|
|00000320| 75 6c 64 20 74 61 6b 65 | 20 74 68 65 20 73 61 6d |uld take| the sam|
|00000330| 65 20 66 6f 72 6d 20 61 | 73 20 61 6e 20 61 72 67 |e form a|s an arg|
|00000340| 75 6d 65 6e 74 20 6c 69 | 73 74 20 66 6f 72 20 61 |ument li|st for a|
|00000350| 20 60 64 65 66 75 6e 27 | 2e 0a 44 4f 43 53 54 52 | `defun'|..DOCSTR|
|00000360| 49 4e 47 20 69 73 20 61 | 6e 20 6f 70 74 69 6f 6e |ING is a|n option|
|00000370| 61 6c 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |al docum|entation|
|00000380| 20 73 74 72 69 6e 67 2e | 0a 20 49 66 20 70 72 65 | string.|. If pre|
|00000390| 73 65 6e 74 2c 20 69 74 | 20 73 68 6f 75 6c 64 20 |sent, it| should |
|000003a0| 64 65 73 63 72 69 62 65 | 20 68 6f 77 20 74 6f 20 |describe| how to |
|000003b0| 63 61 6c 6c 20 74 68 65 | 20 66 75 6e 63 74 69 6f |call the| functio|
|000003c0| 6e 2e 0a 20 42 75 74 20 | 64 6f 63 75 6d 65 6e 74 |n.. But |document|
|000003d0| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 73 20 61 72 |ation st|rings ar|
|000003e0| 65 20 75 73 75 61 6c 6c | 79 20 6e 6f 74 20 75 73 |e usuall|y not us|
|000003f0| 65 66 75 6c 20 69 6e 20 | 6e 61 6d 65 6c 65 73 73 |eful in |nameless|
|00000400| 20 66 75 6e 63 74 69 6f | 6e 73 2e 0a 49 4e 54 45 | functio|ns..INTE|
|00000410| 52 41 43 54 49 56 45 20 | 73 68 6f 75 6c 64 20 62 |RACTIVE |should b|
|00000420| 65 20 61 20 63 61 6c 6c | 20 74 6f 20 74 68 65 20 |e a call| to the |
|00000430| 66 75 6e 63 74 69 6f 6e | 20 60 69 6e 74 65 72 61 |function| `intera|
|00000440| 63 74 69 76 65 27 2c 20 | 77 68 69 63 68 20 73 65 |ctive', |which se|
|00000450| 65 2e 0a 49 74 20 6d 61 | 79 20 61 6c 73 6f 20 62 |e..It ma|y also b|
|00000460| 65 20 6f 6d 69 74 74 65 | 64 2e 0a 42 4f 44 59 20 |e omitte|d..BODY |
|00000470| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 6c 69 73 74 |should b|e a list|
|00000480| 20 6f 66 20 6c 69 73 70 | 20 65 78 70 72 65 73 73 | of lisp| express|
|00000490| 69 6f 6e 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ions...(|defalias|
|000004a0| 20 27 6c 61 6d 62 64 61 | 20 27 28 6d 61 63 72 6f | 'lambda| '(macro|
|000004b0| 20 2e 20 23 5b 28 26 72 | 65 73 74 20 63 64 72 29 | . #[(&r|est cdr)|
|000004c0| 20 22 c0 c1 5c 6e 42 44 | 87 22 20 5b 66 75 6e 63 | "..\nBD|." [func|
|000004d0| 74 69 6f 6e 20 6c 61 6d | 62 64 61 20 63 64 72 5d |tion lam|bda cdr]|
|000004e0| 20 33 20 28 23 24 20 2e | 20 34 37 33 29 5d 29 29 | 3 (#$ .| 473)]))|
|000004f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 75 6e 64 65 |.(defali|as 'unde|
|00000500| 66 69 6e 65 64 20 23 5b | 6e 69 6c 20 22 c0 20 87 |fined #[|nil ". .|
|00000510| 22 20 5b 64 69 6e 67 5d | 20 31 20 6e 69 6c 20 6e |" [ding]| 1 nil n|
|00000520| 69 6c 5d 29 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |il]).(pu|t (quote|
|00000530| 20 75 6e 64 65 66 69 6e | 65 64 29 20 28 71 75 6f | undefin|ed) (quo|
|00000540| 74 65 20 73 75 70 70 72 | 65 73 73 2d 6b 65 79 6d |te suppr|ess-keym|
|00000550| 61 70 29 20 74 29 0a 23 | 40 32 31 38 20 4d 61 6b |ap) t).#|@218 Mak|
|00000560| 65 20 4d 41 50 20 6f 76 | 65 72 72 69 64 65 20 61 |e MAP ov|erride a|
|00000570| 6c 6c 20 6e 6f 72 6d 61 | 6c 6c 79 20 73 65 6c 66 |ll norma|lly self|
|00000580| 2d 69 6e 73 65 72 74 69 | 6e 67 20 6b 65 79 73 20 |-inserti|ng keys |
|00000590| 74 6f 20 62 65 20 75 6e | 64 65 66 69 6e 65 64 2e |to be un|defined.|
|000005a0| 0a 4e 6f 72 6d 61 6c 6c | 79 2c 20 61 73 20 61 6e |.Normall|y, as an|
|000005b0| 20 65 78 63 65 70 74 69 | 6f 6e 2c 20 64 69 67 69 | excepti|on, digi|
|000005c0| 74 73 20 61 6e 64 20 6d | 69 6e 75 73 2d 73 69 67 |ts and m|inus-sig|
|000005d0| 6e 20 61 72 65 20 73 65 | 74 20 74 6f 20 6d 61 6b |n are se|t to mak|
|000005e0| 65 20 70 72 65 66 69 78 | 20 61 72 67 73 2c 0a 62 |e prefix| args,.b|
|000005f0| 75 74 20 6f 70 74 69 6f | 6e 61 6c 20 73 65 63 6f |ut optio|nal seco|
|00000600| 6e 64 20 61 72 67 20 4e | 4f 44 49 47 49 54 53 20 |nd arg N|ODIGITS |
|00000610| 6e 6f 6e 2d 6e 69 6c 20 | 74 72 65 61 74 73 20 74 |non-nil |treats t|
|00000620| 68 65 6d 20 6c 69 6b 65 | 20 6f 74 68 65 72 20 63 |hem like| other c|
|00000630| 68 61 72 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |hars...(|defalias|
|00000640| 20 27 73 75 70 70 72 65 | 73 73 2d 6b 65 79 6d 61 | 'suppre|ss-keyma|
|00000650| 70 20 23 5b 28 6d 61 70 | 20 26 6f 70 74 69 6f 6e |p #[(map| &option|
|00000660| 61 6c 20 6e 6f 64 69 67 | 69 74 73 29 20 22 c0 c1 |al nodig|its) "..|
|00000670| c2 0b 5c 66 24 88 0d 86 | 30 00 c6 1e 07 c8 0b c9 |..\f$...|0.......|
|00000680| ca 23 88 cb 16 07 cb cc | 58 85 2f 00 c8 0b cd 0e |.#......|X./.....|
|00000690| 07 21 ce 23 88 0e 07 54 | 89 16 07 82 18 00 29 87 |.!.#...T|......).|
|000006a0| 22 20 5b 73 75 62 73 74 | 69 74 75 74 65 2d 6b 65 |" [subst|itute-ke|
|000006b0| 79 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 73 65 6c |y-defini|tion sel|
|000006c0| 66 2d 69 6e 73 65 72 74 | 2d 63 6f 6d 6d 61 6e 64 |f-insert|-command|
|000006d0| 20 75 6e 64 65 66 69 6e | 65 64 20 6d 61 70 20 67 | undefin|ed map g|
|000006e0| 6c 6f 62 61 6c 2d 6d 61 | 70 20 6e 6f 64 69 67 69 |lobal-ma|p nodigi|
|000006f0| 74 73 20 6e 69 6c 20 6c | 6f 6f 70 20 64 65 66 69 |ts nil l|oop defi|
|00000700| 6e 65 2d 6b 65 79 20 22 | 2d 22 20 6e 65 67 61 74 |ne-key "|-" negat|
|00000710| 69 76 65 2d 61 72 67 75 | 6d 65 6e 74 20 34 38 20 |ive-argu|ment 48 |
|00000720| 35 37 20 63 68 61 72 2d | 74 6f 2d 73 74 72 69 6e |57 char-|to-strin|
|00000730| 67 20 64 69 67 69 74 2d | 61 72 67 75 6d 65 6e 74 |g digit-|argument|
|00000740| 5d 20 36 20 28 23 24 20 | 2e 20 31 33 37 33 29 5d |] 6 (#$ |. 1373)]|
|00000750| 29 0a 23 40 34 37 20 55 | 73 65 64 20 69 6e 74 65 |).#@47 U|sed inte|
|00000760| 72 6e 61 6c 6c 79 20 62 | 79 20 73 75 62 73 74 69 |rnally b|y substi|
|00000770| 74 75 74 65 2d 6b 65 79 | 2d 64 65 66 69 6e 69 74 |tute-key|-definit|
|00000780| 69 6f 6e 2e 1f 0a 28 64 | 65 66 76 61 72 20 6b 65 |ion...(d|efvar ke|
|00000790| 79 2d 73 75 62 73 74 69 | 74 75 74 69 6f 6e 2d 69 |y-substi|tution-i|
|000007a0| 6e 2d 70 72 6f 67 72 65 | 73 73 20 6e 69 6c 20 28 |n-progre|ss nil (|
|000007b0| 23 24 20 2e 20 31 38 37 | 39 29 29 0a 23 40 32 37 |#$ . 187|9)).#@27|
|000007c0| 36 20 52 65 70 6c 61 63 | 65 20 4f 4c 44 44 45 46 |6 Replac|e OLDDEF|
|000007d0| 20 77 69 74 68 20 4e 45 | 57 44 45 46 20 66 6f 72 | with NE|WDEF for|
|000007e0| 20 61 6e 79 20 6b 65 79 | 73 20 69 6e 20 4b 45 59 | any key|s in KEY|
|000007f0| 4d 41 50 20 6e 6f 77 20 | 64 65 66 69 6e 65 64 20 |MAP now |defined |
|00000800| 61 73 20 4f 4c 44 44 45 | 46 2e 0a 49 6e 20 6f 74 |as OLDDE|F..In ot|
|00000810| 68 65 72 20 77 6f 72 64 | 73 2c 20 4f 4c 44 44 45 |her word|s, OLDDE|
|00000820| 46 20 69 73 20 72 65 70 | 6c 61 63 65 64 20 77 69 |F is rep|laced wi|
|00000830| 74 68 20 4e 45 57 44 45 | 46 20 77 68 65 72 65 20 |th NEWDE|F where |
|00000840| 65 76 65 72 20 69 74 20 | 61 70 70 65 61 72 73 2e |ever it |appears.|
|00000850| 0a 49 66 20 6f 70 74 69 | 6f 6e 61 6c 20 66 6f 75 |.If opti|onal fou|
|00000860| 72 74 68 20 61 72 67 75 | 6d 65 6e 74 20 4f 4c 44 |rth argu|ment OLD|
|00000870| 4d 41 50 20 69 73 20 73 | 70 65 63 69 66 69 65 64 |MAP is s|pecified|
|00000880| 2c 20 77 65 20 72 65 64 | 65 66 69 6e 65 0a 69 6e |, we red|efine.in|
|00000890| 20 4b 45 59 4d 41 50 20 | 61 73 20 4e 45 57 44 45 | KEYMAP |as NEWDE|
|000008a0| 46 20 74 68 6f 73 65 20 | 63 68 61 72 73 20 77 68 |F those |chars wh|
|000008b0| 69 63 68 20 61 72 65 20 | 64 65 66 69 6e 65 64 20 |ich are |defined |
|000008c0| 61 73 20 4f 4c 44 44 45 | 46 20 69 6e 20 4f 4c 44 |as OLDDE|F in OLD|
|000008d0| 4d 41 50 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |MAP...(d|efalias |
|000008e0| 27 73 75 62 73 74 69 74 | 75 74 65 2d 6b 65 79 2d |'substit|ute-key-|
|000008f0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 23 5b 28 6f 6c |definiti|on #[(ol|
|00000900| 64 64 65 66 20 6e 65 77 | 64 65 66 20 6b 65 79 6d |ddef new|def keym|
|00000910| 61 70 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6f 6c 64 |ap &opti|onal old|
|00000920| 6d 61 70 20 70 72 65 66 | 69 78 29 20 22 08 84 06 |map pref|ix) "...|
|00000930| 00 c1 10 5c 6e 86 0b 00 | 0b 1c c5 c6 21 1e 07 c8 |...\n...|....!...|
|00000940| 08 0e 07 5c 22 1e 09 5c | 66 0e 5c 6e 42 1e 5c 6e |...\"..\|f.\nB.\n|
|00000950| 5c 66 3a 85 a9 01 5c 66 | 40 3a 83 d5 00 5c 66 40 |\f:...\f|@:...\f@|
|00000960| 40 5c 66 40 41 1e 0b 1e | 5c 66 0e 07 cd 0e 5c 66 |@\f@A...|\f....\f|
|00000970| 49 88 0e 09 08 47 0e 5c | 66 49 88 c6 89 1e 0e 1e |I....G.\|fI......|
|00000980| 0f 0e 0b a2 3b 83 60 00 | 0e 0b 40 0e 0e 42 16 0e |....;.`.|..@..B..|
|00000990| 0e 0b 41 89 16 0b 82 4a | 00 0e 0b 3a 83 72 00 0e |..A....J|...:.r..|
|000009a0| 0b 40 3a 83 72 00 0e 0b | 41 16 0b 0e 0b 89 16 0f |.@:.r...|A.......|
|000009b0| 39 83 8b 00 d0 0e 0f 21 | 83 8b 00 0e 0f 4b 89 16 |9......!|.....K..|
|000009c0| 0f 82 77 00 0e 0b 0e 11 | 3d 83 a2 00 d2 0b 0e 09 |..w.....|=.......|
|000009d0| 0e 0e 9f 0e 13 a4 23 88 | 82 d1 00 d4 0e 0b 21 83 |......#.|......!.|
|000009e0| d1 00 d5 0b 0e 09 5c 22 | 89 1e 16 3f 86 b9 00 d4 |......\"|...?....|
|000009f0| 0e 16 21 29 83 d1 00 0e | 0f 0e 5c 6e 3e 84 d1 00 |..!)....|..\n>...|
|00000a00| d7 0e 11 0e 13 0b 0e 0f | 0e 09 25 88 2c 82 a2 01 |........|..%.,...|
|00000a10| d8 5c 66 40 21 83 a2 01 | 5c 66 40 89 1e 19 47 1e |.\f@!...|\f@...G.|
|00000a20| 1a cd 1e 1b cd 0e 1a 57 | 83 a1 01 0e 1b 0e 19 0e |.......W|........|
|00000a30| 1b 48 1e 0b 1e 5c 66 0e | 07 cd 0e 5c 66 49 88 0e |.H...\f.|...\fI..|
|00000a40| 09 08 47 0e 5c 66 49 88 | c6 89 1e 0e 1e 0f 0e 0b |..G.\fI.|........|
|00000a50| a2 3b 83 26 01 0e 0b 40 | 0e 0e 42 16 0e 0e 0b 41 |.;.&...@|..B....A|
|00000a60| 89 16 0b 82 10 01 0e 0b | 3a 83 38 01 0e 0b 40 3a |........|:.8...@:|
|00000a70| 83 38 01 0e 0b 41 16 0b | 0e 0b 89 16 0f 39 83 51 |.8...A..|.....9.Q|
|00000a80| 01 d0 0e 0f 21 83 51 01 | 0e 0f 4b 89 16 0f 82 3d |....!.Q.|..K....=|
|00000a90| 01 0e 0b 0e 11 3d 83 68 | 01 d2 0b 0e 09 0e 0e 9f |.....=.h|........|
|00000aa0| 0e 13 a4 23 88 82 97 01 | d4 0e 0b 21 83 97 01 d5 |...#....|...!....|
|00000ab0| 0b 0e 09 5c 22 89 1e 16 | 3f 86 7f 01 d4 0e 16 21 |...\"...|?......!|
|00000ac0| 29 83 97 01 0e 0f 0e 5c | 6e 3e 84 97 01 d7 0e 11 |)......\|n>......|
|00000ad0| 0e 13 0b 0e 0f 0e 09 25 | 88 2c 0e 1b 54 89 16 1b |.......%|.,..T...|
|00000ae0| 82 e8 00 2b 5c 66 41 89 | 14 82 1f 00 2c 87 22 20 |...+\fA.|....,." |
|00000af0| 5b 70 72 65 66 69 78 20 | 22 22 20 6f 6c 64 6d 61 |[prefix |"" oldma|
|00000b00| 70 20 6b 65 79 6d 61 70 | 20 73 63 61 6e 20 76 65 |p keymap| scan ve|
|00000b10| 63 74 6f 72 20 6e 69 6c | 20 76 65 63 31 20 76 63 |ctor nil| vec1 vc|
|00000b20| 6f 6e 63 61 74 20 70 72 | 65 66 69 78 31 20 6b 65 |oncat pr|efix1 ke|
|00000b30| 79 2d 73 75 62 73 74 69 | 74 75 74 69 6f 6e 2d 69 |y-substi|tution-i|
|00000b40| 6e 2d 70 72 6f 67 72 65 | 73 73 20 64 65 66 6e 20 |n-progre|ss defn |
|00000b50| 63 68 61 72 20 30 20 73 | 6b 69 70 70 65 64 20 69 |char 0 s|kipped i|
|00000b60| 6e 6e 65 72 2d 64 65 66 | 20 66 62 6f 75 6e 64 70 |nner-def| fboundp|
|00000b70| 20 6f 6c 64 64 65 66 20 | 64 65 66 69 6e 65 2d 6b | olddef |define-k|
|00000b80| 65 79 20 6e 65 77 64 65 | 66 20 6b 65 79 6d 61 70 |ey newde|f keymap|
|00000b90| 70 20 6c 6f 6f 6b 75 70 | 2d 6b 65 79 20 65 6c 74 |p lookup|-key elt|
|00000ba0| 20 73 75 62 73 74 69 74 | 75 74 65 2d 6b 65 79 2d | substit|ute-key-|
|00000bb0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 61 72 72 61 79 |definiti|on array|
|00000bc0| 70 20 61 72 72 61 79 20 | 6c 65 6e 20 69 5d 20 37 |p array |len i] 7|
|00000bd0| 20 28 23 24 20 2e 20 31 | 39 38 36 29 5d 29 0a 23 | (#$ . 1|986)]).#|
|00000be0| 40 33 37 37 20 41 64 64 | 20 62 69 6e 64 69 6e 67 |@377 Add| binding|
|00000bf0| 20 69 6e 20 4b 45 59 4d | 41 50 20 66 6f 72 20 4b | in KEYM|AP for K|
|00000c00| 45 59 20 3d 3e 20 44 45 | 46 49 4e 49 54 49 4f 4e |EY => DE|FINITION|
|00000c10| 2c 20 72 69 67 68 74 20 | 61 66 74 65 72 20 41 46 |, right |after AF|
|00000c20| 54 45 52 27 73 20 62 69 | 6e 64 69 6e 67 2e 0a 54 |TER's bi|nding..T|
|00000c30| 68 69 73 20 69 73 20 6c | 69 6b 65 20 60 64 65 66 |his is l|ike `def|
|00000c40| 69 6e 65 2d 6b 65 79 27 | 20 65 78 63 65 70 74 20 |ine-key'| except |
|00000c50| 74 68 61 74 20 74 68 65 | 20 62 69 6e 64 69 6e 67 |that the| binding|
|00000c60| 20 66 6f 72 20 4b 45 59 | 20 69 73 20 70 6c 61 63 | for KEY| is plac|
|00000c70| 65 64 0a 6a 75 73 74 20 | 61 66 74 65 72 20 74 68 |ed.just |after th|
|00000c80| 65 20 62 69 6e 64 69 6e | 67 20 66 6f 72 20 74 68 |e bindin|g for th|
|00000c90| 65 20 65 76 65 6e 74 20 | 41 46 54 45 52 2c 20 69 |e event |AFTER, i|
|00000ca0| 6e 73 74 65 61 64 20 6f | 66 20 61 74 20 74 68 65 |nstead o|f at the|
|00000cb0| 20 62 65 67 69 6e 6e 69 | 6e 67 0a 6f 66 20 74 68 | beginni|ng.of th|
|00000cc0| 65 20 6d 61 70 2e 0a 54 | 68 65 20 6f 72 64 65 72 |e map..T|he order|
|00000cd0| 20 6d 61 74 74 65 72 73 | 20 77 68 65 6e 20 74 68 | matters| when th|
|00000ce0| 65 20 6b 65 79 6d 61 70 | 20 69 73 20 75 73 65 64 |e keymap| is used|
|00000cf0| 20 61 73 20 61 20 6d 65 | 6e 75 2e 0a 4b 45 59 20 | as a me|nu..KEY |
|00000d00| 6d 75 73 74 20 63 6f 6e | 74 61 69 6e 20 6a 75 73 |must con|tain jus|
|00000d10| 74 20 6f 6e 65 20 65 76 | 65 6e 74 20 74 79 70 65 |t one ev|ent type|
|00000d20| 2d 2d 74 68 61 74 20 69 | 73 20 74 6f 20 73 61 79 |--that i|s to say|
|00000d30| 2c 20 69 74 20 6d 75 73 | 74 20 62 65 0a 61 20 73 |, it mus|t be.a s|
|00000d40| 74 72 69 6e 67 20 6f 72 | 20 76 65 63 74 6f 72 20 |tring or| vector |
|00000d50| 6f 66 20 6c 65 6e 67 74 | 68 20 31 2e 1f 0a 28 64 |of lengt|h 1...(d|
|00000d60| 65 66 61 6c 69 61 73 20 | 27 64 65 66 69 6e 65 2d |efalias |'define-|
|00000d70| 6b 65 79 2d 61 66 74 65 | 72 20 23 5b 28 6b 65 79 |key-afte|r #[(key|
|00000d80| 6d 61 70 20 6b 65 79 20 | 64 65 66 69 6e 69 74 69 |map key |definiti|
|00000d90| 6f 6e 20 61 66 74 65 72 | 29 20 22 c0 09 21 84 0d |on after|) "..!..|
|00000da0| 00 c2 c3 c0 09 44 5c 22 | 88 5c 66 47 c5 56 83 18 |.....D\"|.\fG.V..|
|00000db0| 00 c6 c7 21 88 09 c8 89 | 5c 66 c9 48 1e 5c 6e 1e |...!....|\f.H.\n.|
|00000dc0| 0b 1e 5c 66 1e 0d 0e 5c | 66 3f 85 86 00 0e 0d 85 |..\f...\|f?......|
|00000dd0| 86 00 0e 0d 41 40 a2 0e | 5c 6e 3d 83 43 00 0e 0d |....A@..|\n=.C...|
|00000de0| 89 41 41 a1 88 0e 0d 40 | a2 0e 0e 3d 84 5c 5c 00 |.AA....@|...=.\\.|
|00000df0| 0e 0d 41 40 c1 3d 84 5c | 5c 00 0e 0d 41 84 7e 00 |..A@.=.\|\...A.~.|
|00000e00| 0e 0d 41 40 c1 3d 83 68 | 00 cf 16 5c 66 0e 0b 84 |..A@.=.h|...\f...|
|00000e10| 7b 00 0e 0d 5c 66 c9 48 | 0e 10 42 0e 0d 41 42 a1 |{...\f.H|..B..AB.|
|00000e20| 88 cf 16 0b 0e 0d 41 16 | 0d 82 26 00 2c 87 22 20 |......A.|..&.,." |
|00000e30| 5b 6b 65 79 6d 61 70 70 | 20 6b 65 79 6d 61 70 20 |[keymapp| keymap |
|00000e40| 73 69 67 6e 61 6c 20 77 | 72 6f 6e 67 2d 74 79 70 |signal w|rong-typ|
|00000e50| 65 2d 61 72 67 75 6d 65 | 6e 74 20 6b 65 79 20 31 |e-argume|nt key 1|
|00000e60| 20 65 72 72 6f 72 20 22 | 6d 75 6c 74 69 2d 65 76 | error "|multi-ev|
|00000e70| 65 6e 74 20 6b 65 79 20 | 73 70 65 63 69 66 69 65 |ent key |specifie|
|00000e80| 64 20 69 6e 20 60 64 65 | 66 69 6e 65 2d 6b 65 79 |d in `de|fine-key|
|00000e90| 2d 61 66 74 65 72 27 22 | 20 6e 69 6c 20 30 20 66 |-after'"| nil 0 f|
|00000ea0| 69 72 73 74 20 69 6e 73 | 65 72 74 65 64 20 64 6f |irst ins|erted do|
|00000eb0| 6e 65 20 74 61 69 6c 20 | 61 66 74 65 72 20 74 20 |ne tail |after t |
|00000ec0| 64 65 66 69 6e 69 74 69 | 6f 6e 5d 20 35 20 28 23 |definiti|on] 5 (#|
|00000ed0| 24 20 2e 20 33 30 34 35 | 29 5d 29 0a 23 40 31 34 |$ . 3045|)]).#@14|
|00000ee0| 37 20 54 72 61 6e 73 6c | 61 74 65 20 63 68 61 72 |7 Transl|ate char|
|00000ef0| 61 63 74 65 72 20 46 52 | 4f 4d 20 74 6f 20 54 4f |acter FR|OM to TO|
|00000f00| 20 61 74 20 61 20 6c 6f | 77 20 6c 65 76 65 6c 2e | at a lo|w level.|
|00000f10| 0a 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 |.This fu|nction c|
|00000f20| 72 65 61 74 65 73 20 61 | 20 60 6b 65 79 62 6f 61 |reates a| `keyboa|
|00000f30| 72 64 2d 74 72 61 6e 73 | 6c 61 74 65 2d 74 61 62 |rd-trans|late-tab|
|00000f40| 6c 65 27 20 69 66 20 6e | 65 63 65 73 73 61 72 79 |le' if n|ecessary|
|00000f50| 0a 61 6e 64 20 74 68 65 | 6e 20 6d 6f 64 69 66 69 |.and the|n modifi|
|00000f60| 65 73 20 6f 6e 65 20 65 | 6e 74 72 79 20 69 6e 20 |es one e|ntry in |
|00000f70| 69 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |it...(de|falias '|
|00000f80| 6b 65 79 62 6f 61 72 64 | 2d 74 72 61 6e 73 6c 61 |keyboard|-transla|
|00000f90| 74 65 20 23 5b 28 66 72 | 6f 6d 20 74 6f 29 20 22 |te #[(fr|om to) "|
|00000fa0| c0 09 21 84 08 00 c2 11 | 0b 09 47 56 84 16 00 5c |..!.....|..GV...\|
|00000fb0| 66 09 47 56 83 3a 00 09 | 47 1d 09 c6 c7 0d 5a c8 |f.GV.:..|G.....Z.|
|00000fc0| 5c 22 50 1e 09 0d c7 57 | 83 36 00 0e 09 0d 89 49 |\"P....W|.6.....I|
|00000fd0| 88 0d 54 89 15 82 24 00 | 0e 09 11 2a 09 0b 5c 66 |..T...$.|...*..\f|
|00000fe0| 49 87 22 20 5b 61 72 72 | 61 79 70 20 6b 65 79 62 |I." [arr|ayp keyb|
|00000ff0| 6f 61 72 64 2d 74 72 61 | 6e 73 6c 61 74 65 2d 74 |oard-tra|nslate-t|
|00001000| 61 62 6c 65 20 22 22 20 | 66 72 6f 6d 20 74 6f 20 |able "" |from to |
|00001010| 69 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 32 35 |i make-s|tring 25|
|00001020| 36 20 30 20 74 61 62 6c | 65 5d 20 35 20 28 23 24 |6 0 tabl|e] 5 (#$|
|00001030| 20 2e 20 33 38 31 30 29 | 5d 29 0a 23 40 31 34 38 | . 3810)|]).#@148|
|00001040| 20 44 65 66 61 75 6c 74 | 20 67 6c 6f 62 61 6c 20 | Default| global |
|00001050| 6b 65 79 6d 61 70 20 6d | 61 70 70 69 6e 67 20 45 |keymap m|apping E|
|00001060| 6d 61 63 73 20 6b 65 79 | 62 6f 61 72 64 20 69 6e |macs key|board in|
|00001070| 70 75 74 20 69 6e 74 6f | 20 63 6f 6d 6d 61 6e 64 |put into| command|
|00001080| 73 2e 0a 54 68 65 20 76 | 61 6c 75 65 20 69 73 20 |s..The v|alue is |
|00001090| 61 20 6b 65 79 6d 61 70 | 20 77 68 69 63 68 20 69 |a keymap| which i|
|000010a0| 73 20 75 73 75 61 6c 6c | 79 20 28 62 75 74 20 6e |s usuall|y (but n|
|000010b0| 6f 74 20 6e 65 63 65 73 | 73 61 72 69 6c 79 29 20 |ot neces|sarily) |
|000010c0| 45 6d 61 63 73 27 73 0a | 67 6c 6f 62 61 6c 20 6d |Emacs's.|global m|
|000010d0| 61 70 2e 1f 0a 28 64 65 | 66 76 61 72 20 67 6c 6f |ap...(de|fvar glo|
|000010e0| 62 61 6c 2d 6d 61 70 20 | 6e 69 6c 20 28 23 24 20 |bal-map |nil (#$ |
|000010f0| 2e 20 34 31 36 31 29 29 | 0a 23 40 31 31 37 20 44 |. 4161))|.#@117 D|
|00001100| 65 66 61 75 6c 74 20 6b | 65 79 6d 61 70 20 66 6f |efault k|eymap fo|
|00001110| 72 20 45 53 43 20 28 6d | 65 74 61 29 20 63 6f 6d |r ESC (m|eta) com|
|00001120| 6d 61 6e 64 73 2e 0a 54 | 68 65 20 6e 6f 72 6d 61 |mands..T|he norma|
|00001130| 6c 20 67 6c 6f 62 61 6c | 20 64 65 66 69 6e 69 74 |l global| definit|
|00001140| 69 6f 6e 20 6f 66 20 74 | 68 65 20 63 68 61 72 61 |ion of t|he chara|
|00001150| 63 74 65 72 20 45 53 43 | 20 69 6e 64 69 72 65 63 |cter ESC| indirec|
|00001160| 74 73 20 74 6f 20 74 68 | 69 73 20 6b 65 79 6d 61 |ts to th|is keyma|
|00001170| 70 2e 1f 0a 28 64 65 66 | 76 61 72 20 65 73 63 2d |p...(def|var esc-|
|00001180| 6d 61 70 20 6e 69 6c 20 | 28 23 24 20 2e 20 34 33 |map nil |(#$ . 43|
|00001190| 35 31 29 29 0a 23 40 31 | 31 30 20 44 65 66 61 75 |51)).#@1|10 Defau|
|000011a0| 6c 74 20 6b 65 79 6d 61 | 70 20 66 6f 72 20 43 2d |lt keyma|p for C-|
|000011b0| 78 20 63 6f 6d 6d 61 6e | 64 73 2e 0a 54 68 65 20 |x comman|ds..The |
|000011c0| 6e 6f 72 6d 61 6c 20 67 | 6c 6f 62 61 6c 20 64 65 |normal g|lobal de|
|000011d0| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |finition| of the |
|000011e0| 63 68 61 72 61 63 74 65 | 72 20 43 2d 78 20 69 6e |characte|r C-x in|
|000011f0| 64 69 72 65 63 74 73 20 | 74 6f 20 74 68 69 73 20 |directs |to this |
|00001200| 6b 65 79 6d 61 70 2e 1f | 0a 28 64 65 66 76 61 72 |keymap..|.(defvar|
|00001210| 20 63 74 6c 2d 78 2d 6d | 61 70 20 6e 69 6c 20 28 | ctl-x-m|ap nil (|
|00001220| 23 24 20 2e 20 34 35 30 | 37 29 29 0a 23 40 33 33 |#$ . 450|7)).#@33|
|00001230| 20 4b 65 79 6d 61 70 20 | 66 6f 72 20 73 75 62 63 | Keymap |for subc|
|00001240| 6f 6d 6d 61 6e 64 73 20 | 6f 66 20 43 2d 78 20 34 |ommands |of C-x 4|
|00001250| 1f 0a 28 64 65 66 76 61 | 72 20 63 74 6c 2d 78 2d |..(defva|r ctl-x-|
|00001260| 34 2d 6d 61 70 20 28 6d | 61 6b 65 2d 73 70 61 72 |4-map (m|ake-spar|
|00001270| 73 65 2d 6b 65 79 6d 61 | 70 29 20 28 23 24 20 2e |se-keyma|p) (#$ .|
|00001280| 20 34 36 35 37 29 29 0a | 28 62 79 74 65 2d 63 6f | 4657)).|(byte-co|
|00001290| 64 65 20 22 c0 c1 5c 6e | 5c 22 88 c3 5c 66 c5 c1 |de "..\n|\"..\f..|
|000012a0| 23 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 63 74 |#." [def|alias ct|
|000012b0| 6c 2d 78 2d 34 2d 70 72 | 65 66 69 78 20 63 74 6c |l-x-4-pr|efix ctl|
|000012c0| 2d 78 2d 34 2d 6d 61 70 | 20 64 65 66 69 6e 65 2d |-x-4-map| define-|
|000012d0| 6b 65 79 20 63 74 6c 2d | 78 2d 6d 61 70 20 22 34 |key ctl-|x-map "4|
|000012e0| 22 5d 20 34 29 0a 23 40 | 32 38 20 4b 65 79 6d 61 |"] 4).#@|28 Keyma|
|000012f0| 70 20 66 6f 72 20 66 72 | 61 6d 65 20 63 6f 6d 6d |p for fr|ame comm|
|00001300| 61 6e 64 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 63 |ands...(|defvar c|
|00001310| 74 6c 2d 78 2d 35 2d 6d | 61 70 20 28 6d 61 6b 65 |tl-x-5-m|ap (make|
|00001320| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 29 20 |-sparse-|keymap) |
|00001330| 28 23 24 20 2e 20 34 38 | 34 33 29 29 0a 28 62 79 |(#$ . 48|43)).(by|
|00001340| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 5c 6e 5c 22 88 |te-code |"..\n\".|
|00001350| c3 5c 66 c5 c1 23 88 c6 | c7 c8 21 c9 5c 22 16 5c |.\f..#..|..!.\".\|
|00001360| 6e ca 0e 0b 42 16 0b c0 | 87 22 20 5b 64 65 66 61 |n...B...|." [defa|
|00001370| 6c 69 61 73 20 63 74 6c | 2d 78 2d 35 2d 70 72 65 |lias ctl|-x-5-pre|
|00001380| 66 69 78 20 63 74 6c 2d | 78 2d 35 2d 6d 61 70 20 |fix ctl-|x-5-map |
|00001390| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 74 6c 2d 78 |define-k|ey ctl-x|
|000013a0| 2d 6d 61 70 20 22 35 22 | 20 6c 6f 67 69 6f 72 20 |-map "5"| logior |
|000013b0| 72 65 61 64 20 22 3f 5c | 5c 4d 2d 5c 5c 5e 40 22 |read "?\|\M-\\^@"|
|000013c0| 20 31 32 38 20 6c 69 73 | 74 69 66 79 2d 6b 65 79 | 128 lis|tify-key|
|000013d0| 2d 73 65 71 75 65 6e 63 | 65 2d 31 20 63 75 72 72 |-sequenc|e-1 curr|
|000013e0| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 5d 20 34 |ent-load|-list] 4|
|000013f0| 29 0a 23 40 34 35 20 43 | 6f 6e 76 65 72 74 20 61 |).#@45 C|onvert a|
|00001400| 20 6b 65 79 20 73 65 71 | 75 65 6e 63 65 20 74 6f | key seq|uence to|
|00001410| 20 61 20 6c 69 73 74 20 | 6f 66 20 65 76 65 6e 74 | a list |of event|
|00001420| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |s...(def|alias 'l|
|00001430| 69 73 74 69 66 79 2d 6b | 65 79 2d 73 65 71 75 65 |istify-k|ey-seque|
|00001440| 6e 63 65 20 23 5b 28 6b | 65 79 29 20 22 c0 09 21 |nce #[(k|ey) "..!|
|00001450| 83 0b 00 c2 09 c3 5c 22 | 87 c4 c5 c2 09 c3 5c 22 |......\"|......\"|
|00001460| 5c 22 87 22 20 5b 76 65 | 63 74 6f 72 70 20 6b 65 |\"." [ve|ctorp ke|
|00001470| 79 20 61 70 70 65 6e 64 | 20 6e 69 6c 20 6d 61 70 |y append| nil map|
|00001480| 63 61 72 20 23 5b 28 63 | 29 20 22 08 c1 56 83 0b |car #[(c|) "..V..|
|00001490| 00 c2 08 0b 5c 22 87 08 | 87 22 20 5b 63 20 31 32 |....\"..|." [c 12|
|000014a0| 37 20 6c 6f 67 78 6f 72 | 20 6c 69 73 74 69 66 79 |7 logxor| listify|
|000014b0| 2d 6b 65 79 2d 73 65 71 | 75 65 6e 63 65 2d 31 5d |-key-seq|uence-1]|
|000014c0| 20 33 5d 5d 20 35 20 28 | 23 24 20 2e 20 35 31 31 | 3]] 5 (|#$ . 511|
|000014d0| 31 29 5d 29 0a 23 40 34 | 32 20 54 72 75 65 20 69 |1)]).#@4|2 True i|
|000014e0| 66 20 74 68 65 20 61 72 | 67 75 6d 65 6e 74 20 69 |f the ar|gument i|
|000014f0| 73 20 61 6e 20 65 76 65 | 6e 74 20 6f 62 6a 65 63 |s an eve|nt objec|
|00001500| 74 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |t...(def|alias 'e|
|00001510| 76 65 6e 74 70 20 23 5b | 28 6f 62 6a 29 20 22 08 |ventp #[|(obj) ".|
|00001520| a8 86 1f 00 08 39 83 10 | 00 08 c1 4e 86 1f 00 08 |.....9..|...N....|
|00001530| 3a 85 1f 00 08 40 39 85 | 1f 00 08 40 c1 4e 87 22 |:....@9.|...@.N."|
|00001540| 20 5b 6f 62 6a 20 65 76 | 65 6e 74 2d 73 79 6d 62 | [obj ev|ent-symb|
|00001550| 6f 6c 2d 65 6c 65 6d 65 | 6e 74 73 5d 20 32 20 28 |ol-eleme|nts] 2 (|
|00001560| 23 24 20 2e 20 35 33 33 | 38 29 5d 29 0a 28 70 75 |#$ . 533|8)]).(pu|
|00001570| 74 20 28 71 75 6f 74 65 | 20 65 76 65 6e 74 70 29 |t (quote| eventp)|
|00001580| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 6f 70 74 | (quote |byte-opt|
|00001590| 69 6d 69 7a 65 72 29 20 | 28 71 75 6f 74 65 20 62 |imizer) |(quote b|
|000015a0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|000015b0| 6e 65 2d 65 78 70 61 6e | 64 29 29 0a 23 40 32 31 |ne-expan|d)).#@21|
|000015c0| 33 20 52 65 74 75 72 6e | 73 20 61 20 6c 69 73 74 |3 Return|s a list|
|000015d0| 20 6f 66 20 73 79 6d 62 | 6f 6c 73 20 72 65 70 72 | of symb|ols repr|
|000015e0| 65 73 65 6e 74 69 6e 67 | 20 74 68 65 20 6d 6f 64 |esenting| the mod|
|000015f0| 69 66 69 65 72 20 6b 65 | 79 73 20 69 6e 20 65 76 |ifier ke|ys in ev|
|00001600| 65 6e 74 20 45 56 45 4e | 54 2e 0a 54 68 65 20 65 |ent EVEN|T..The e|
|00001610| 6c 65 6d 65 6e 74 73 20 | 6f 66 20 74 68 65 20 6c |lements |of the l|
|00001620| 69 73 74 20 6d 61 79 20 | 69 6e 63 6c 75 64 65 20 |ist may |include |
|00001630| 60 6d 65 74 61 27 2c 20 | 60 63 6f 6e 74 72 6f 6c |`meta', |`control|
|00001640| 27 2c 0a 60 73 68 69 66 | 74 27 2c 20 60 68 79 70 |',.`shif|t', `hyp|
|00001650| 65 72 27 2c 20 60 73 75 | 70 65 72 27 2c 20 60 61 |er', `su|per', `a|
|00001660| 6c 74 27 2c 20 60 63 6c | 69 63 6b 27 2c 20 60 64 |lt', `cl|ick', `d|
|00001670| 6f 75 62 6c 65 27 2c 20 | 60 74 72 69 70 6c 65 27 |ouble', |`triple'|
|00001680| 2c 20 60 64 72 61 67 27 | 2c 0a 61 6e 64 20 60 64 |, `drag'|,.and `d|
|00001690| 6f 77 6e 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |own'...(|defalias|
|000016a0| 20 27 65 76 65 6e 74 2d | 6d 6f 64 69 66 69 65 72 | 'event-|modifier|
|000016b0| 73 20 23 5b 28 65 76 65 | 6e 74 29 20 22 08 89 19 |s #[(eve|nt) "...|
|000016c0| 3c 83 5c 6e 00 09 40 11 | 09 39 83 16 00 09 c2 4e |<.\n..@.|.9.....N|
|000016d0| 41 82 7e 00 c3 1c c5 c6 | 09 c7 5c 22 21 84 25 00 |A.~.....|..\"!.%.|
|000016e0| c8 5c 66 42 14 c5 c6 09 | c9 5c 22 21 83 37 00 c6 |.\fB....|.\"!.7..|
|000016f0| 09 ca 5c 22 cb 59 84 3b | 00 cc 5c 66 42 14 c5 c6 |..\".Y.;|..\fB...|
|00001700| 09 cd 5c 22 21 83 51 00 | c6 09 ce 5c 22 c6 09 ce |..\"!.Q.|...\"...|
|00001710| 5c 22 97 55 84 55 00 cf | 5c 66 42 14 c5 c6 09 d0 |\".U.U..|\fB.....|
|00001720| 5c 22 21 84 62 00 d1 5c | 66 42 14 c5 c6 09 d2 5c |\"!.b..\|fB.....\|
|00001730| 22 21 84 6f 00 d3 5c 66 | 42 14 c5 c6 09 d4 5c 22 |"!.o..\f|B.....\"|
|00001740| 21 84 7c 00 d5 5c 66 42 | 14 5c 66 29 29 87 22 20 |!.|..\fB|.\f))." |
|00001750| 5b 65 76 65 6e 74 20 74 | 79 70 65 20 65 76 65 6e |[event t|ype even|
|00001760| 74 2d 73 79 6d 62 6f 6c | 2d 65 6c 65 6d 65 6e 74 |t-symbol|-element|
|00001770| 73 20 6e 69 6c 20 6c 69 | 73 74 20 7a 65 72 6f 70 |s nil li|st zerop|
|00001780| 20 6c 6f 67 61 6e 64 20 | 2d 31 33 34 32 31 37 37 | logand |-1342177|
|00001790| 32 38 20 6d 65 74 61 20 | 36 37 31 30 38 38 36 34 |28 meta |67108864|
|000017a0| 20 31 32 37 20 33 32 20 | 63 6f 6e 74 72 6f 6c 20 | 127 32 |control |
|000017b0| 33 33 35 35 34 34 33 32 | 20 32 35 35 20 73 68 69 |33554432| 255 shi|
|000017c0| 66 74 20 31 36 37 37 37 | 32 31 36 20 68 79 70 65 |ft 16777|216 hype|
|000017d0| 72 20 38 33 38 38 36 30 | 38 20 73 75 70 65 72 20 |r 838860|8 super |
|000017e0| 34 31 39 34 33 30 34 20 | 61 6c 74 5d 20 35 20 28 |4194304 |alt] 5 (|
|000017f0| 23 24 20 2e 20 35 35 37 | 30 29 5d 29 0a 23 40 31 |#$ . 557|0)]).#@1|
|00001800| 33 39 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 62 |39 Retur|ns the b|
|00001810| 61 73 69 63 20 74 79 70 | 65 20 6f 66 20 74 68 65 |asic typ|e of the|
|00001820| 20 67 69 76 65 6e 20 65 | 76 65 6e 74 20 28 61 6c | given e|vent (al|
|00001830| 6c 20 6d 6f 64 69 66 69 | 65 72 73 20 72 65 6d 6f |l modifi|ers remo|
|00001840| 76 65 64 29 2e 0a 54 68 | 65 20 76 61 6c 75 65 20 |ved)..Th|e value |
|00001850| 69 73 20 61 6e 20 41 53 | 43 49 49 20 70 72 69 6e |is an AS|CII prin|
|00001860| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 20 28 |ting cha|racter (|
|00001870| 6e 6f 74 20 75 70 70 65 | 72 20 63 61 73 65 29 20 |not uppe|r case) |
|00001880| 6f 72 20 61 20 73 79 6d | 62 6f 6c 2e 1f 0a 28 64 |or a sym|bol...(d|
|00001890| 65 66 61 6c 69 61 73 20 | 27 65 76 65 6e 74 2d 62 |efalias |'event-b|
|000018a0| 61 73 69 63 2d 74 79 70 | 65 20 23 5b 28 65 76 65 |asic-typ|e #[(eve|
|000018b0| 6e 74 29 20 22 08 3a 83 | 08 00 08 40 10 08 39 83 |nt) ".:.|...@..9.|
|000018c0| 12 00 08 c1 4e 40 87 c2 | 08 c3 c4 c5 5c 22 53 5c |....N@..|....\"S\|
|000018d0| 22 89 1e 06 c7 57 83 2a | 00 c8 0e 06 c9 5c 22 82 |"....W.*|.....\".|
|000018e0| 2c 00 0e 06 97 29 87 22 | 20 5b 65 76 65 6e 74 20 |,....)."| [event |
|000018f0| 65 76 65 6e 74 2d 73 79 | 6d 62 6f 6c 2d 65 6c 65 |event-sy|mbol-ele|
|00001900| 6d 65 6e 74 73 20 6c 6f | 67 61 6e 64 20 6c 73 68 |ments lo|gand lsh|
|00001910| 20 31 20 31 38 20 62 61 | 73 65 20 33 32 20 6c 6f | 1 18 ba|se 32 lo|
|00001920| 67 69 6f 72 20 36 34 5d | 20 36 20 28 23 24 20 2e |gior 64]| 6 (#$ .|
|00001930| 20 36 31 34 37 29 5d 29 | 0a 23 40 35 33 20 52 65 | 6147)])|.#@53 Re|
|00001940| 74 75 72 6e 20 6e 6f 6e | 2d 6e 69 6c 20 69 66 20 |turn non|-nil if |
|00001950| 4f 42 4a 45 43 54 20 69 | 73 20 61 20 6d 6f 75 73 |OBJECT i|s a mous|
|00001960| 65 20 6d 6f 76 65 6d 65 | 6e 74 20 65 76 65 6e 74 |e moveme|nt event|
|00001970| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 6f |...(defa|lias 'mo|
|00001980| 75 73 65 2d 6d 6f 76 65 | 6d 65 6e 74 2d 70 20 23 |use-move|ment-p #|
|00001990| 5b 28 6f 62 6a 65 63 74 | 29 20 22 08 3a 85 09 00 |[(object|) ".:...|
|000019a0| 08 40 c1 3d 87 22 20 5b | 6f 62 6a 65 63 74 20 6d |.@.=." [|object m|
|000019b0| 6f 75 73 65 2d 6d 6f 76 | 65 6d 65 6e 74 5d 20 32 |ouse-mov|ement] 2|
|000019c0| 20 28 23 24 20 2e 20 36 | 34 36 32 29 5d 29 0a 28 | (#$ . 6|462)]).(|
|000019d0| 70 75 74 20 28 71 75 6f | 74 65 20 6d 6f 75 73 65 |put (quo|te mouse|
|000019e0| 2d 6d 6f 76 65 6d 65 6e | 74 2d 70 29 20 28 71 75 |-movemen|t-p) (qu|
|000019f0| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00001a00| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00001a10| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00001a20| 78 70 61 6e 64 29 29 0a | 23 40 33 31 38 20 52 65 |xpand)).|#@318 Re|
|00001a30| 74 75 72 6e 20 74 68 65 | 20 73 74 61 72 74 69 6e |turn the| startin|
|00001a40| 67 20 70 6f 73 69 74 69 | 6f 6e 20 6f 66 20 45 56 |g positi|on of EV|
|00001a50| 45 4e 54 2e 0a 49 66 20 | 45 56 45 4e 54 20 69 73 |ENT..If |EVENT is|
|00001a60| 20 61 20 6d 6f 75 73 65 | 20 70 72 65 73 73 20 6f | a mouse| press o|
|00001a70| 72 20 61 20 6d 6f 75 73 | 65 20 63 6c 69 63 6b 2c |r a mous|e click,|
|00001a80| 20 74 68 69 73 20 72 65 | 74 75 72 6e 73 20 74 68 | this re|turns th|
|00001a90| 65 20 6c 6f 63 61 74 69 | 6f 6e 0a 6f 66 20 74 68 |e locati|on.of th|
|00001aa0| 65 20 65 76 65 6e 74 2e | 0a 49 66 20 45 56 45 4e |e event.|.If EVEN|
|00001ab0| 54 20 69 73 20 61 20 64 | 72 61 67 2c 20 74 68 69 |T is a d|rag, thi|
|00001ac0| 73 20 72 65 74 75 72 6e | 73 20 74 68 65 20 64 72 |s return|s the dr|
|00001ad0| 61 67 27 73 20 73 74 61 | 72 74 69 6e 67 20 70 6f |ag's sta|rting po|
|00001ae0| 73 69 74 69 6f 6e 2e 0a | 54 68 65 20 72 65 74 75 |sition..|The retu|
|00001af0| 72 6e 20 76 61 6c 75 65 | 20 69 73 20 6f 66 20 74 |rn value| is of t|
|00001b00| 68 65 20 66 6f 72 6d 0a | 20 20 20 28 57 49 4e 44 |he form.| (WIND|
|00001b10| 4f 57 20 42 55 46 46 45 | 52 2d 50 4f 53 49 54 49 |OW BUFFE|R-POSITI|
|00001b20| 4f 4e 20 28 58 20 2e 20 | 59 29 20 54 49 4d 45 53 |ON (X . |Y) TIMES|
|00001b30| 54 41 4d 50 29 0a 54 68 | 65 20 60 70 6f 73 6e 2d |TAMP).Th|e `posn-|
|00001b40| 27 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 63 63 65 |' functi|ons acce|
|00001b50| 73 73 20 65 6c 65 6d 65 | 6e 74 73 20 6f 66 20 73 |ss eleme|nts of s|
|00001b60| 75 63 68 20 6c 69 73 74 | 73 2e 1f 0a 28 64 65 66 |uch list|s...(def|
|00001b70| 61 6c 69 61 73 20 27 65 | 76 65 6e 74 2d 73 74 61 |alias 'e|vent-sta|
|00001b80| 72 74 20 23 5b 28 65 76 | 65 6e 74 29 20 22 08 41 |rt #[(ev|ent) ".A|
|00001b90| 40 87 22 20 5b 65 76 65 | 6e 74 5d 20 31 20 28 23 |@." [eve|nt] 1 (#|
|00001ba0| 24 20 2e 20 36 37 30 32 | 29 5d 29 0a 28 70 75 74 |$ . 6702|)]).(put|
|00001bb0| 20 28 71 75 6f 74 65 20 | 65 76 65 6e 74 2d 73 74 | (quote |event-st|
|00001bc0| 61 72 74 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |art) (qu|ote byte|
|00001bd0| 2d 6f 70 74 69 6d 69 7a | 65 72 29 20 28 71 75 6f |-optimiz|er) (quo|
|00001be0| 74 65 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |te byte-|compile-|
|00001bf0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 29 0a |inline-e|xpand)).|
|00001c00| 23 40 32 38 30 20 52 65 | 74 75 72 6e 20 74 68 65 |#@280 Re|turn the|
|00001c10| 20 65 6e 64 69 6e 67 20 | 6c 6f 63 61 74 69 6f 6e | ending |location|
|00001c20| 20 6f 66 20 45 56 45 4e | 54 2e 20 20 45 56 45 4e | of EVEN|T. EVEN|
|00001c30| 54 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 63 6c |T should| be a cl|
|00001c40| 69 63 6b 20 6f 72 20 64 | 72 61 67 20 65 76 65 6e |ick or d|rag even|
|00001c50| 74 2e 0a 49 66 20 45 56 | 45 4e 54 20 69 73 20 61 |t..If EV|ENT is a|
|00001c60| 20 63 6c 69 63 6b 20 65 | 76 65 6e 74 2c 20 74 68 | click e|vent, th|
|00001c70| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 69 73 20 74 |is funct|ion is t|
|00001c80| 68 65 20 73 61 6d 65 20 | 61 73 20 60 65 76 65 6e |he same |as `even|
|00001c90| 74 2d 73 74 61 72 74 27 | 2e 0a 54 68 65 20 72 65 |t-start'|..The re|
|00001ca0| 74 75 72 6e 20 76 61 6c | 75 65 20 69 73 20 6f 66 |turn val|ue is of|
|00001cb0| 20 74 68 65 20 66 6f 72 | 6d 0a 20 20 20 28 57 49 | the for|m. (WI|
|00001cc0| 4e 44 4f 57 20 42 55 46 | 46 45 52 2d 50 4f 53 49 |NDOW BUF|FER-POSI|
|00001cd0| 54 49 4f 4e 20 28 58 20 | 2e 20 59 29 20 54 49 4d |TION (X |. Y) TIM|
|00001ce0| 45 53 54 41 4d 50 29 0a | 54 68 65 20 60 70 6f 73 |ESTAMP).|The `pos|
|00001cf0| 6e 2d 27 20 66 75 6e 63 | 74 69 6f 6e 73 20 61 63 |n-' func|tions ac|
|00001d00| 63 65 73 73 20 65 6c 65 | 6d 65 6e 74 73 20 6f 66 |cess ele|ments of|
|00001d10| 20 73 75 63 68 20 6c 69 | 73 74 73 2e 1f 0a 28 64 | such li|sts...(d|
|00001d20| 65 66 61 6c 69 61 73 20 | 27 65 76 65 6e 74 2d 65 |efalias |'event-e|
|00001d30| 6e 64 20 23 5b 28 65 76 | 65 6e 74 29 20 22 c0 09 |nd #[(ev|ent) "..|
|00001d40| 38 3a 83 0b 00 c0 82 5c | 66 00 c2 09 38 87 22 20 |8:.....\|f...8." |
|00001d50| 5b 32 20 65 76 65 6e 74 | 20 31 5d 20 32 20 28 23 |[2 event| 1] 2 (#|
|00001d60| 24 20 2e 20 37 31 37 34 | 29 5d 29 0a 28 70 75 74 |$ . 7174|)]).(put|
|00001d70| 20 28 71 75 6f 74 65 20 | 65 76 65 6e 74 2d 65 6e | (quote |event-en|
|00001d80| 64 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 6f |d) (quot|e byte-o|
|00001d90| 70 74 69 6d 69 7a 65 72 | 29 20 28 71 75 6f 74 65 |ptimizer|) (quote|
|00001da0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00001db0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 29 0a 23 40 |line-exp|and)).#@|
|00001dc0| 31 30 33 20 52 65 74 75 | 72 6e 20 74 68 65 20 6d |103 Retu|rn the m|
|00001dd0| 75 6c 74 69 2d 63 6c 69 | 63 6b 20 63 6f 75 6e 74 |ulti-cli|ck count|
|00001de0| 20 6f 66 20 45 56 45 4e | 54 2c 20 61 20 63 6c 69 | of EVEN|T, a cli|
|00001df0| 63 6b 20 6f 72 20 64 72 | 61 67 20 65 76 65 6e 74 |ck or dr|ag event|
|00001e00| 2e 0a 54 68 65 20 72 65 | 74 75 72 6e 20 76 61 6c |..The re|turn val|
|00001e10| 75 65 20 69 73 20 61 20 | 70 6f 73 69 74 69 76 65 |ue is a |positive|
|00001e20| 20 69 6e 74 65 67 65 72 | 2e 1f 0a 28 64 65 66 61 | integer|...(defa|
|00001e30| 6c 69 61 73 20 27 65 76 | 65 6e 74 2d 63 6c 69 63 |lias 'ev|ent-clic|
|00001e40| 6b 2d 63 6f 75 6e 74 20 | 23 5b 28 65 76 65 6e 74 |k-count |#[(event|
|00001e50| 29 20 22 c0 09 38 a8 83 | 0b 00 c0 09 38 87 c2 87 |) "..8..|....8...|
|00001e60| 22 20 5b 32 20 65 76 65 | 6e 74 20 31 5d 20 32 20 |" [2 eve|nt 1] 2 |
|00001e70| 28 23 24 20 2e 20 37 36 | 32 30 29 5d 29 0a 28 70 |(#$ . 76|20)]).(p|
|00001e80| 75 74 20 28 71 75 6f 74 | 65 20 65 76 65 6e 74 2d |ut (quot|e event-|
|00001e90| 63 6c 69 63 6b 2d 63 6f | 75 6e 74 29 20 28 71 75 |click-co|unt) (qu|
|00001ea0| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00001eb0| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00001ec0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00001ed0| 78 70 61 6e 64 29 29 0a | 23 40 31 37 36 20 52 65 |xpand)).|#@176 Re|
|00001ee0| 74 75 72 6e 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |turn the| window |
|00001ef0| 69 6e 20 50 4f 53 49 54 | 49 4f 4e 2e 0a 50 4f 53 |in POSIT|ION..POS|
|00001f00| 49 54 49 4f 4e 20 73 68 | 6f 75 6c 64 20 62 65 20 |ITION sh|ould be |
|00001f10| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 66 6f |a list o|f the fo|
|00001f20| 72 6d 0a 20 20 20 28 57 | 49 4e 44 4f 57 20 42 55 |rm. (W|INDOW BU|
|00001f30| 46 46 45 52 2d 50 4f 53 | 49 54 49 4f 4e 20 28 58 |FFER-POS|ITION (X|
|00001f40| 20 2e 20 59 29 20 54 49 | 4d 45 53 54 41 4d 50 29 | . Y) TI|MESTAMP)|
|00001f50| 0a 61 73 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |.as retu|rned by |
|00001f60| 74 68 65 20 60 65 76 65 | 6e 74 2d 73 74 61 72 74 |the `eve|nt-start|
|00001f70| 27 20 61 6e 64 20 60 65 | 76 65 6e 74 2d 65 6e 64 |' and `e|vent-end|
|00001f80| 27 20 66 75 6e 63 74 69 | 6f 6e 73 2e 1f 0a 28 64 |' functi|ons...(d|
|00001f90| 65 66 61 6c 69 61 73 20 | 27 70 6f 73 6e 2d 77 69 |efalias |'posn-wi|
|00001fa0| 6e 64 6f 77 20 23 5b 28 | 70 6f 73 69 74 69 6f 6e |ndow #[(|position|
|00001fb0| 29 20 22 08 40 87 22 20 | 5b 70 6f 73 69 74 69 6f |) ".@." |[positio|
|00001fc0| 6e 5d 20 31 20 28 23 24 | 20 2e 20 37 39 30 32 29 |n] 1 (#$| . 7902)|
|00001fd0| 5d 29 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 70 |]).(put |(quote p|
|00001fe0| 6f 73 6e 2d 77 69 6e 64 | 6f 77 29 20 28 71 75 6f |osn-wind|ow) (quo|
|00001ff0| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00002000| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 63 |r) (quot|e byte-c|
|00002010| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00002020| 70 61 6e 64 29 29 0a 23 | 40 31 38 35 20 52 65 74 |pand)).#|@185 Ret|
|00002030| 75 72 6e 20 74 68 65 20 | 62 75 66 66 65 72 20 6c |urn the |buffer l|
|00002040| 6f 63 61 74 69 6f 6e 20 | 69 6e 20 50 4f 53 49 54 |ocation |in POSIT|
|00002050| 49 4f 4e 2e 0a 50 4f 53 | 49 54 49 4f 4e 20 73 68 |ION..POS|ITION sh|
|00002060| 6f 75 6c 64 20 62 65 20 | 61 20 6c 69 73 74 20 6f |ould be |a list o|
|00002070| 66 20 74 68 65 20 66 6f | 72 6d 0a 20 20 20 28 57 |f the fo|rm. (W|
|00002080| 49 4e 44 4f 57 20 42 55 | 46 46 45 52 2d 50 4f 53 |INDOW BU|FFER-POS|
|00002090| 49 54 49 4f 4e 20 28 58 | 20 2e 20 59 29 20 54 49 |ITION (X| . Y) TI|
|000020a0| 4d 45 53 54 41 4d 50 29 | 0a 61 73 20 72 65 74 75 |MESTAMP)|.as retu|
|000020b0| 72 6e 65 64 20 62 79 20 | 74 68 65 20 60 65 76 65 |rned by |the `eve|
|000020c0| 6e 74 2d 73 74 61 72 74 | 27 20 61 6e 64 20 60 65 |nt-start|' and `e|
|000020d0| 76 65 6e 74 2d 65 6e 64 | 27 20 66 75 6e 63 74 69 |vent-end|' functi|
|000020e0| 6f 6e 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ons...(d|efalias |
|000020f0| 27 70 6f 73 6e 2d 70 6f | 69 6e 74 20 23 5b 28 70 |'posn-po|int #[(p|
|00002100| 6f 73 69 74 69 6f 6e 29 | 20 22 08 41 40 3a 83 5c |osition)| ".A@:.\|
|00002110| 66 00 08 41 40 40 87 08 | 41 40 87 22 20 5b 70 6f |f..A@@..|A@." [po|
|00002120| 73 69 74 69 6f 6e 5d 20 | 31 20 28 23 24 20 2e 20 |sition] |1 (#$ . |
|00002130| 38 32 33 37 29 5d 29 0a | 28 70 75 74 20 28 71 75 |8237)]).|(put (qu|
|00002140| 6f 74 65 20 70 6f 73 6e | 2d 70 6f 69 6e 74 29 20 |ote posn|-point) |
|00002150| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|00002160| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00002170| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00002180| 65 2d 65 78 70 61 6e 64 | 29 29 0a 23 40 31 38 39 |e-expand|)).#@189|
|00002190| 20 52 65 74 75 72 6e 20 | 74 68 65 20 78 20 61 6e | Return |the x an|
|000021a0| 64 20 79 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |d y coor|dinates |
|000021b0| 69 6e 20 50 4f 53 49 54 | 49 4f 4e 2e 0a 50 4f 53 |in POSIT|ION..POS|
|000021c0| 49 54 49 4f 4e 20 73 68 | 6f 75 6c 64 20 62 65 20 |ITION sh|ould be |
|000021d0| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 66 6f |a list o|f the fo|
|000021e0| 72 6d 0a 20 20 20 28 57 | 49 4e 44 4f 57 20 42 55 |rm. (W|INDOW BU|
|000021f0| 46 46 45 52 2d 50 4f 53 | 49 54 49 4f 4e 20 28 58 |FFER-POS|ITION (X|
|00002200| 20 2e 20 59 29 20 54 49 | 4d 45 53 54 41 4d 50 29 | . Y) TI|MESTAMP)|
|00002210| 0a 61 73 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |.as retu|rned by |
|00002220| 74 68 65 20 60 65 76 65 | 6e 74 2d 73 74 61 72 74 |the `eve|nt-start|
|00002230| 27 20 61 6e 64 20 60 65 | 76 65 6e 74 2d 65 6e 64 |' and `e|vent-end|
|00002240| 27 20 66 75 6e 63 74 69 | 6f 6e 73 2e 1f 0a 28 64 |' functi|ons...(d|
|00002250| 65 66 61 6c 69 61 73 20 | 27 70 6f 73 6e 2d 78 2d |efalias |'posn-x-|
|00002260| 79 20 23 5b 28 70 6f 73 | 69 74 69 6f 6e 29 20 22 |y #[(pos|ition) "|
|00002270| c0 09 38 87 22 20 5b 32 | 20 70 6f 73 69 74 69 6f |..8." [2| positio|
|00002280| 6e 5d 20 32 20 28 23 24 | 20 2e 20 38 35 39 33 29 |n] 2 (#$| . 8593)|
|00002290| 5d 29 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 70 |]).(put |(quote p|
|000022a0| 6f 73 6e 2d 78 2d 79 29 | 20 28 71 75 6f 74 65 20 |osn-x-y)| (quote |
|000022b0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 29 20 |byte-opt|imizer) |
|000022c0| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 63 6f 6d 70 |(quote b|yte-comp|
|000022d0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|000022e0| 64 29 29 0a 23 40 33 33 | 37 20 52 65 74 75 72 6e |d)).#@33|7 Return|
|000022f0| 20 74 68 65 20 63 6f 6c | 75 6d 6e 20 61 6e 64 20 | the col|umn and |
|00002300| 72 6f 77 20 69 6e 20 50 | 4f 53 49 54 49 4f 4e 2c |row in P|OSITION,|
|00002310| 20 6d 65 61 73 75 72 65 | 64 20 69 6e 20 63 68 61 | measure|d in cha|
|00002320| 72 61 63 74 65 72 73 2e | 0a 50 4f 53 49 54 49 4f |racters.|.POSITIO|
|00002330| 4e 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 6c 69 |N should| be a li|
|00002340| 73 74 20 6f 66 20 74 68 | 65 20 66 6f 72 6d 0a 20 |st of th|e form. |
|00002350| 20 20 28 57 49 4e 44 4f | 57 20 42 55 46 46 45 52 | (WINDO|W BUFFER|
|00002360| 2d 50 4f 53 49 54 49 4f | 4e 20 28 58 20 2e 20 59 |-POSITIO|N (X . Y|
|00002370| 29 20 54 49 4d 45 53 54 | 41 4d 50 29 0a 61 73 20 |) TIMEST|AMP).as |
|00002380| 72 65 74 75 72 6e 65 64 | 20 62 79 20 74 68 65 20 |returned| by the |
|00002390| 60 65 76 65 6e 74 2d 73 | 74 61 72 74 27 20 61 6e |`event-s|tart' an|
|000023a0| 64 20 60 65 76 65 6e 74 | 2d 65 6e 64 27 20 66 75 |d `event|-end' fu|
|000023b0| 6e 63 74 69 6f 6e 73 2e | 0a 46 6f 72 20 61 20 73 |nctions.|.For a s|
|000023c0| 63 72 6f 6c 6c 2d 62 61 | 72 20 65 76 65 6e 74 2c |croll-ba|r event,|
|000023d0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 63 6f 6c 75 | the res|ult colu|
|000023e0| 6d 6e 20 69 73 20 30 2c | 20 61 6e 64 20 74 68 65 |mn is 0,| and the|
|000023f0| 20 72 6f 77 0a 63 6f 72 | 72 65 73 70 6f 6e 64 73 | row.cor|responds|
|00002400| 20 74 6f 20 74 68 65 20 | 76 65 72 74 69 63 61 6c | to the |vertical|
|00002410| 20 70 6f 73 69 74 69 6f | 6e 20 6f 66 20 74 68 65 | positio|n of the|
|00002420| 20 63 6c 69 63 6b 20 69 | 6e 20 74 68 65 20 73 63 | click i|n the sc|
|00002430| 72 6f 6c 6c 20 62 61 72 | 2e 1f 0a 28 64 65 66 61 |roll bar|...(defa|
|00002440| 6c 69 61 73 20 27 70 6f | 73 6e 2d 63 6f 6c 2d 72 |lias 'po|sn-col-r|
|00002450| 6f 77 20 23 5b 28 70 6f | 73 69 74 69 6f 6e 29 20 |ow #[(po|sition) |
|00002460| 22 c0 09 38 09 89 19 40 | 29 1a 1b 09 41 40 3a 83 |"..8...@|)...A@:.|
|00002470| 18 00 09 41 40 40 82 1b | 00 09 41 40 c4 3d 83 2c |...A@@..|..A@.=.,|
|00002480| 00 c5 c6 0b c7 5c 6e 21 | 53 5c 22 42 82 74 00 09 |.....\n!|S\"B.t..|
|00002490| 41 40 3a 83 3a 00 09 41 | 40 40 82 3d 00 09 41 40 |A@:.:..A|@@.=..A@|
|000024a0| c8 3d 83 4d 00 c6 0b c9 | 5c 6e 21 5c 22 c5 42 82 |.=.M....|\n!\".B.|
|000024b0| 74 00 ca 5c 6e 21 83 57 | 00 5c 6e 82 5a 00 cb 5c |t..\n!.W|.\n.Z..\|
|000024c0| 6e 21 1e 5c 66 0b 40 cd | 0e 5c 66 21 a5 1e 0e 0b |n!.\f.@.|.\f!....|
|000024d0| 41 cf 0e 5c 66 21 a5 1e | 10 0e 0e 0e 10 2b 42 2a |A..\f!..|.....+B*|
|000024e0| 87 22 20 5b 32 20 70 6f | 73 69 74 69 6f 6e 20 77 |." [2 po|sition w|
|000024f0| 69 6e 64 6f 77 20 70 61 | 69 72 20 76 65 72 74 69 |indow pa|ir verti|
|00002500| 63 61 6c 2d 73 63 72 6f | 6c 6c 2d 62 61 72 20 30 |cal-scro|ll-bar 0|
|00002510| 20 73 63 72 6f 6c 6c 2d | 62 61 72 2d 73 63 61 6c | scroll-|bar-scal|
|00002520| 65 20 77 69 6e 64 6f 77 | 2d 68 65 69 67 68 74 20 |e window|-height |
|00002530| 68 6f 72 69 7a 6f 6e 74 | 61 6c 2d 73 63 72 6f 6c |horizont|al-scrol|
|00002540| 6c 2d 62 61 72 20 77 69 | 6e 64 6f 77 2d 77 69 64 |l-bar wi|ndow-wid|
|00002550| 74 68 20 66 72 61 6d 65 | 70 20 77 69 6e 64 6f 77 |th frame|p window|
|00002560| 2d 66 72 61 6d 65 20 66 | 72 61 6d 65 20 66 72 61 |-frame f|rame fra|
|00002570| 6d 65 2d 63 68 61 72 2d | 77 69 64 74 68 20 78 20 |me-char-|width x |
|00002580| 66 72 61 6d 65 2d 63 68 | 61 72 2d 68 65 69 67 68 |frame-ch|ar-heigh|
|00002590| 74 20 79 5d 20 36 20 28 | 23 24 20 2e 20 38 39 33 |t y] 6 (|#$ . 893|
|000025a0| 38 29 5d 29 0a 23 40 31 | 37 39 20 52 65 74 75 72 |8)]).#@1|79 Retur|
|000025b0| 6e 20 74 68 65 20 74 69 | 6d 65 73 74 61 6d 70 20 |n the ti|mestamp |
|000025c0| 6f 66 20 50 4f 53 49 54 | 49 4f 4e 2e 0a 50 4f 53 |of POSIT|ION..POS|
|000025d0| 49 54 49 4f 4e 20 73 68 | 6f 75 6c 64 20 62 65 20 |ITION sh|ould be |
|000025e0| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 66 6f |a list o|f the fo|
|000025f0| 72 6d 0a 20 20 20 28 57 | 49 4e 44 4f 57 20 42 55 |rm. (W|INDOW BU|
|00002600| 46 46 45 52 2d 50 4f 53 | 49 54 49 4f 4e 20 28 58 |FFER-POS|ITION (X|
|00002610| 20 2e 20 59 29 20 54 49 | 4d 45 53 54 41 4d 50 29 | . Y) TI|MESTAMP)|
|00002620| 0a 61 73 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |.as retu|rned by |
|00002630| 74 68 65 20 60 65 76 65 | 6e 74 2d 73 74 61 72 74 |the `eve|nt-start|
|00002640| 27 20 61 6e 64 20 60 65 | 76 65 6e 74 2d 65 6e 64 |' and `e|vent-end|
|00002650| 27 20 66 75 6e 63 74 69 | 6f 6e 73 2e 1f 0a 28 64 |' functi|ons...(d|
|00002660| 65 66 61 6c 69 61 73 20 | 27 70 6f 73 6e 2d 74 69 |efalias |'posn-ti|
|00002670| 6d 65 73 74 61 6d 70 20 | 23 5b 28 70 6f 73 69 74 |mestamp |#[(posit|
|00002680| 69 6f 6e 29 20 22 c0 09 | 38 87 22 20 5b 33 20 70 |ion) "..|8." [3 p|
|00002690| 6f 73 69 74 69 6f 6e 5d | 20 32 20 28 23 24 20 2e |osition]| 2 (#$ .|
|000026a0| 20 39 36 34 33 29 5d 29 | 0a 28 62 79 74 65 2d 63 | 9643)])|.(byte-c|
|000026b0| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 c4 c5 c6 5c 22 |ode "...|.#....\"|
|000026c0| 88 c4 c7 c8 5c 22 88 c4 | c9 ca 5c 22 88 c4 cb cc |....\"..|..\"....|
|000026d0| 5c 22 88 c4 cd ce 5c 22 | 88 c4 cf d0 5c 22 88 c4 |\"....\"|....\"..|
|000026e0| d1 d2 5c 22 88 c4 d3 d4 | 5c 22 88 c4 d5 d6 5c 22 |..\"....|\"....\"|
|000026f0| 88 c4 d7 d8 5c 22 88 c4 | d9 da 5c 22 88 c4 db dc |....\"..|..\"....|
|00002700| 5c 22 88 c4 dd de 5c 22 | 87 22 20 5b 70 75 74 20 |\"....\"|." [put |
|00002710| 70 6f 73 6e 2d 74 69 6d | 65 73 74 61 6d 70 20 62 |posn-tim|estamp b|
|00002720| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 62 79 |yte-opti|mizer by|
|00002730| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00002740| 65 2d 65 78 70 61 6e 64 | 20 64 65 66 61 6c 69 61 |e-expand| defalia|
|00002750| 73 20 64 6f 74 20 70 6f | 69 6e 74 20 64 6f 74 2d |s dot po|int dot-|
|00002760| 6d 61 72 6b 65 72 20 70 | 6f 69 6e 74 2d 6d 61 72 |marker p|oint-mar|
|00002770| 6b 65 72 20 64 6f 74 2d | 6d 69 6e 20 70 6f 69 6e |ker dot-|min poin|
|00002780| 74 2d 6d 69 6e 20 64 6f | 74 2d 6d 61 78 20 70 6f |t-min do|t-max po|
|00002790| 69 6e 74 2d 6d 61 78 20 | 77 69 6e 64 6f 77 2d 64 |int-max |window-d|
|000027a0| 6f 74 20 77 69 6e 64 6f | 77 2d 70 6f 69 6e 74 20 |ot windo|w-point |
|000027b0| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 64 6f 74 20 73 |set-wind|ow-dot s|
|000027c0| 65 74 2d 77 69 6e 64 6f | 77 2d 70 6f 69 6e 74 20 |et-windo|w-point |
|000027d0| 72 65 61 64 2d 69 6e 70 | 75 74 20 72 65 61 64 2d |read-inp|ut read-|
|000027e0| 73 74 72 69 6e 67 20 73 | 65 6e 64 2d 73 74 72 69 |string s|end-stri|
|000027f0| 6e 67 20 70 72 6f 63 65 | 73 73 2d 73 65 6e 64 2d |ng proce|ss-send-|
|00002800| 73 74 72 69 6e 67 20 73 | 65 6e 64 2d 72 65 67 69 |string s|end-regi|
|00002810| 6f 6e 20 70 72 6f 63 65 | 73 73 2d 73 65 6e 64 2d |on proce|ss-send-|
|00002820| 72 65 67 69 6f 6e 20 73 | 68 6f 77 2d 62 75 66 66 |region s|how-buff|
|00002830| 65 72 20 73 65 74 2d 77 | 69 6e 64 6f 77 2d 62 75 |er set-w|indow-bu|
|00002840| 66 66 65 72 20 62 75 66 | 66 65 72 2d 66 6c 75 73 |ffer buf|fer-flus|
|00002850| 68 2d 75 6e 64 6f 20 62 | 75 66 66 65 72 2d 64 69 |h-undo b|uffer-di|
|00002860| 73 61 62 6c 65 2d 75 6e | 64 6f 20 65 76 61 6c 2d |sable-un|do eval-|
|00002870| 63 75 72 72 65 6e 74 2d | 62 75 66 66 65 72 20 65 |current-|buffer e|
|00002880| 76 61 6c 2d 62 75 66 66 | 65 72 20 63 6f 6d 70 69 |val-buff|er compi|
|00002890| 6c 65 64 2d 66 75 6e 63 | 74 69 6f 6e 2d 70 20 62 |led-func|tion-p b|
|000028a0| 79 74 65 2d 63 6f 64 65 | 2d 66 75 6e 63 74 69 6f |yte-code|-functio|
|000028b0| 6e 2d 70 5d 20 34 29 0a | 23 40 31 33 39 20 4f 62 |n-p] 4).|#@139 Ob|
|000028c0| 73 6f 6c 65 74 65 20 66 | 75 6e 63 74 69 6f 6e 20 |solete f|unction |
|000028d0| 72 65 74 75 72 6e 69 6e | 67 20 74 68 65 20 76 61 |returnin|g the va|
|000028e0| 6c 75 65 20 6f 66 20 74 | 68 65 20 60 62 61 75 64 |lue of t|he `baud|
|000028f0| 2d 72 61 74 65 27 20 76 | 61 72 69 61 62 6c 65 2e |-rate' v|ariable.|
|00002900| 0a 50 6c 65 61 73 65 20 | 63 6f 6e 76 65 72 74 20 |.Please |convert |
|00002910| 79 6f 75 72 20 70 72 6f | 67 72 61 6d 73 20 74 6f |your pro|grams to|
|00002920| 20 75 73 65 20 74 68 65 | 20 76 61 72 69 61 62 6c | use the| variabl|
|00002930| 65 20 60 62 61 75 64 2d | 72 61 74 65 27 20 64 69 |e `baud-|rate' di|
|00002940| 72 65 63 74 6c 79 2e 1f | 0a 28 64 65 66 61 6c 69 |rectly..|.(defali|
|00002950| 61 73 20 27 62 61 75 64 | 2d 72 61 74 65 20 23 5b |as 'baud|-rate #[|
|00002960| 6e 69 6c 20 22 08 87 22 | 20 5b 62 61 75 64 2d 72 |nil ".."| [baud-r|
|00002970| 61 74 65 5d 20 31 20 28 | 23 24 20 2e 20 31 30 34 |ate] 1 (|#$ . 104|
|00002980| 33 30 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |30)]).(b|yte-code|
|00002990| 20 22 c0 c1 c2 5c 22 88 | c0 c3 c2 5c 22 88 c0 c4 | "...\".|...\"...|
|000029a0| c5 5c 22 88 c0 c6 c7 5c | 22 88 c0 c8 c9 5c 22 88 |.\"....\|"....\".|
|000029b0| c0 ca cb 5c 22 88 c0 cc | cd 5c 22 88 c0 ce cf 5c |...\"...|.\"....\|
|000029c0| 22 88 c0 d0 d1 5c 22 88 | c0 d2 d3 5c 22 88 c0 d4 |"....\".|...\"...|
|000029d0| d5 5c 22 88 c0 d6 d7 5c | 22 88 c0 d8 d9 4b 5c 22 |.\"....\|"....K\"|
|000029e0| 88 c0 da db 4b 5c 22 88 | c0 dc dd 5c 22 88 c0 de |....K\".|...\"...|
|000029f0| df 5c 22 88 c0 e0 e1 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00002a00| 61 6c 69 61 73 20 66 6f | 63 75 73 2d 66 72 61 6d |alias fo|cus-fram|
|00002a10| 65 20 69 67 6e 6f 72 65 | 20 75 6e 66 6f 63 75 73 |e ignore| unfocus|
|00002a20| 2d 66 72 61 6d 65 20 73 | 74 72 69 6e 67 3d 20 73 |-frame s|tring= s|
|00002a30| 74 72 69 6e 67 2d 65 71 | 75 61 6c 20 73 74 72 69 |tring-eq|ual stri|
|00002a40| 6e 67 3c 20 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 |ng< stri|ng-lessp|
|00002a50| 20 6d 6f 76 65 2d 6d 61 | 72 6b 65 72 20 73 65 74 | move-ma|rker set|
|00002a60| 2d 6d 61 72 6b 65 72 20 | 65 71 6c 20 65 71 20 6e |-marker |eql eq n|
|00002a70| 6f 74 20 6e 75 6c 6c 20 | 72 70 6c 61 63 61 20 73 |ot null |rplaca s|
|00002a80| 65 74 63 61 72 20 72 70 | 6c 61 63 64 20 73 65 74 |etcar rp|lacd set|
|00002a90| 63 64 72 20 62 65 65 70 | 20 64 69 6e 67 20 69 6e |cdr beep| ding in|
|00002aa0| 64 65 6e 74 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 69 |dent-to-|column i|
|00002ab0| 6e 64 65 6e 74 2d 74 6f | 20 62 61 63 6b 77 61 72 |ndent-to| backwar|
|00002ac0| 64 2d 64 65 6c 65 74 65 | 2d 63 68 61 72 20 64 65 |d-delete|-char de|
|00002ad0| 6c 65 74 65 2d 62 61 63 | 6b 77 61 72 64 2d 63 68 |lete-bac|kward-ch|
|00002ae0| 61 72 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |ar searc|h-forwar|
|00002af0| 64 2d 72 65 67 65 78 70 | 20 72 65 2d 73 65 61 72 |d-regexp| re-sear|
|00002b00| 63 68 2d 66 6f 72 77 61 | 72 64 20 73 65 61 72 63 |ch-forwa|rd searc|
|00002b10| 68 2d 62 61 63 6b 77 61 | 72 64 2d 72 65 67 65 78 |h-backwa|rd-regex|
|00002b20| 70 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |p re-sea|rch-back|
|00002b30| 77 61 72 64 20 69 6e 74 | 2d 74 6f 2d 73 74 72 69 |ward int|-to-stri|
|00002b40| 6e 67 20 6e 75 6d 62 65 | 72 2d 74 6f 2d 73 74 72 |ng numbe|r-to-str|
|00002b50| 69 6e 67 20 73 65 74 2d | 6d 61 74 63 68 2d 64 61 |ing set-|match-da|
|00002b60| 74 61 20 73 74 6f 72 65 | 2d 6d 61 74 63 68 2d 64 |ta store|-match-d|
|00002b70| 61 74 61 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |ata stri|ng-to-in|
|00002b80| 74 20 73 74 72 69 6e 67 | 2d 74 6f 2d 6e 75 6d 62 |t string|-to-numb|
|00002b90| 65 72 5d 20 33 29 0a 23 | 40 31 33 37 20 56 61 72 |er] 3).#|@137 Var|
|00002ba0| 69 61 62 6c 65 20 62 79 | 20 77 68 69 63 68 20 43 |iable by| which C|
|00002bb0| 20 70 72 69 6d 69 74 69 | 76 65 73 20 66 69 6e 64 | primiti|ves find|
|00002bc0| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 60 72 | the fun|ction `r|
|00002bd0| 75 6e 2d 68 6f 6f 6b 73 | 27 2e 0a 44 6f 6e 27 74 |un-hooks|'..Don't|
|00002be0| 20 63 68 61 6e 67 65 20 | 69 74 2e 20 20 44 6f 6e | change |it. Don|
|00002bf0| 27 74 20 75 73 65 20 69 | 74 20 65 69 74 68 65 72 |'t use i|t either|
|00002c00| 3b 20 75 73 65 20 74 68 | 65 20 68 6f 6f 6b 20 72 |; use th|e hook r|
|00002c10| 75 6e 6e 69 6e 67 20 43 | 20 70 72 69 6d 69 74 69 |unning C| primiti|
|00002c20| 76 65 73 2e 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ves...(d|efconst |
|00002c30| 72 75 6e 2d 68 6f 6f 6b | 73 20 28 71 75 6f 74 65 |run-hook|s (quote|
|00002c40| 20 72 75 6e 2d 68 6f 6f | 6b 73 29 20 28 23 24 20 | run-hoo|ks) (#$ |
|00002c50| 2e 20 31 31 31 36 35 29 | 29 0a 23 40 37 34 38 20 |. 11165)|).#@748 |
|00002c60| 4d 61 6b 65 20 74 68 65 | 20 68 6f 6f 6b 20 48 4f |Make the| hook HO|
|00002c70| 4f 4b 20 6c 6f 63 61 6c | 20 74 6f 20 74 68 65 20 |OK local| to the |
|00002c80| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 2e 0a |current |buffer..|
|00002c90| 57 68 65 6e 20 61 20 68 | 6f 6f 6b 20 69 73 20 6c |When a h|ook is l|
|00002ca0| 6f 63 61 6c 2c 20 69 74 | 73 20 6c 6f 63 61 6c 20 |ocal, it|s local |
|00002cb0| 61 6e 64 20 67 6c 6f 62 | 61 6c 20 76 61 6c 75 65 |and glob|al value|
|00002cc0| 73 0a 77 6f 72 6b 20 69 | 6e 20 63 6f 6e 63 65 72 |s.work i|n concer|
|00002cd0| 74 3a 20 72 75 6e 6e 69 | 6e 67 20 74 68 65 20 68 |t: runni|ng the h|
|00002ce0| 6f 6f 6b 20 61 63 74 75 | 61 6c 6c 79 20 72 75 6e |ook actu|ally run|
|00002cf0| 73 20 61 6c 6c 20 74 68 | 65 20 68 6f 6f 6b 0a 66 |s all th|e hook.f|
|00002d00| 75 6e 63 74 69 6f 6e 73 | 20 6c 69 73 74 65 64 20 |unctions| listed |
|00002d10| 69 6e 20 2a 65 69 74 68 | 65 72 2a 20 74 68 65 20 |in *eith|er* the |
|00002d20| 6c 6f 63 61 6c 20 76 61 | 6c 75 65 20 2a 6f 72 2a |local va|lue *or*|
|00002d30| 20 74 68 65 20 67 6c 6f | 62 61 6c 20 76 61 6c 75 | the glo|bal valu|
|00002d40| 65 0a 6f 66 20 74 68 65 | 20 68 6f 6f 6b 20 76 61 |e.of the| hook va|
|00002d50| 72 69 61 62 6c 65 2e 0a | 0a 54 68 69 73 20 66 75 |riable..|.This fu|
|00002d60| 6e 63 74 69 6f 6e 20 77 | 6f 72 6b 73 20 62 79 20 |nction w|orks by |
|00002d70| 6d 61 6b 69 6e 67 20 60 | 74 27 20 61 20 6d 65 6d |making `|t' a mem|
|00002d80| 62 65 72 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |ber of t|he buffe|
|00002d90| 72 2d 6c 6f 63 61 6c 20 | 76 61 6c 75 65 2c 0a 77 |r-local |value,.w|
|00002da0| 68 69 63 68 20 61 63 74 | 73 20 61 73 20 61 20 66 |hich act|s as a f|
|00002db0| 6c 61 67 20 74 6f 20 72 | 75 6e 20 74 68 65 20 68 |lag to r|un the h|
|00002dc0| 6f 6f 6b 20 66 75 6e 63 | 74 69 6f 6e 73 20 69 6e |ook func|tions in|
|00002dd0| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 76 61 6c | the def|ault val|
|00002de0| 75 65 20 61 73 0a 77 65 | 6c 6c 2e 20 20 54 68 69 |ue as.we|ll. Thi|
|00002df0| 73 20 77 6f 72 6b 73 20 | 66 6f 72 20 61 6c 6c 20 |s works |for all |
|00002e00| 6e 6f 72 6d 61 6c 20 68 | 6f 6f 6b 73 2c 20 62 75 |normal h|ooks, bu|
|00002e10| 74 20 64 6f 65 73 20 6e | 6f 74 20 77 6f 72 6b 20 |t does n|ot work |
|00002e20| 66 6f 72 20 6d 6f 73 74 | 0a 6e 6f 6e 2d 6e 6f 72 |for most|.non-nor|
|00002e30| 6d 61 6c 20 68 6f 6f 6b | 73 20 79 65 74 2e 20 20 |mal hook|s yet. |
|00002e40| 57 65 20 77 69 6c 6c 20 | 62 65 20 63 68 61 6e 67 |We will |be chang|
|00002e50| 69 6e 67 20 74 68 65 20 | 63 61 6c 6c 65 72 73 20 |ing the |callers |
|00002e60| 6f 66 20 6e 6f 6e 2d 6e | 6f 72 6d 61 6c 0a 68 6f |of non-n|ormal.ho|
|00002e70| 6f 6b 73 20 73 6f 20 74 | 68 61 74 20 74 68 65 79 |oks so t|hat they|
|00002e80| 20 63 61 6e 20 68 61 6e | 64 6c 65 20 6c 6f 63 61 | can han|dle loca|
|00002e90| 6c 6e 65 73 73 3b 20 74 | 68 69 73 20 68 61 73 20 |lness; t|his has |
|00002ea0| 74 6f 20 62 65 20 64 6f | 6e 65 20 6f 6e 65 20 62 |to be do|ne one b|
|00002eb0| 79 0a 6f 6e 65 2e 0a 0a | 54 68 69 73 20 66 75 6e |y.one...|This fun|
|00002ec0| 63 74 69 6f 6e 20 64 6f | 65 73 20 6e 6f 74 68 69 |ction do|es nothi|
|00002ed0| 6e 67 20 69 66 20 48 4f | 4f 4b 20 69 73 20 61 6c |ng if HO|OK is al|
|00002ee0| 72 65 61 64 79 20 6c 6f | 63 61 6c 20 69 6e 20 74 |ready lo|cal in t|
|00002ef0| 68 65 20 63 75 72 72 65 | 6e 74 0a 62 75 66 66 65 |he curre|nt.buffe|
|00002f00| 72 2e 0a 0a 44 6f 20 6e | 6f 74 20 75 73 65 20 60 |r...Do n|ot use `|
|00002f10| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00002f20| 62 6c 65 27 20 74 6f 20 | 6d 61 6b 65 20 61 20 68 |ble' to |make a h|
|00002f30| 6f 6f 6b 20 76 61 72 69 | 61 62 6c 65 20 62 75 66 |ook vari|able buf|
|00002f40| 66 65 72 2d 6c 6f 63 61 | 6c 2e 1f 0a 28 64 65 66 |fer-loca|l...(def|
|00002f50| 61 6c 69 61 73 20 27 6d | 61 6b 65 2d 6c 6f 63 61 |alias 'm|ake-loca|
|00002f60| 6c 2d 68 6f 6f 6b 20 23 | 5b 28 68 6f 6f 6b 29 20 |l-hook #|[(hook) |
|00002f70| 22 c0 09 21 3f 85 19 00 | c2 09 21 84 11 00 09 c3 |"..!?...|..!.....|
|00002f80| 4c 88 c4 09 21 88 09 c5 | 43 4c 87 22 20 5b 6c 6f |L...!...|CL." [lo|
|00002f90| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 2d 70 20 68 |cal-vari|able-p h|
|00002fa0| 6f 6f 6b 20 62 6f 75 6e | 64 70 20 6e 69 6c 20 6d |ook boun|dp nil m|
|00002fb0| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|00002fc0| 6c 65 20 74 5d 20 32 20 | 28 23 24 20 2e 20 31 31 |le t] 2 |(#$ . 11|
|00002fd0| 33 36 30 29 5d 29 0a 23 | 40 37 31 34 20 41 64 64 |360)]).#|@714 Add|
|00002fe0| 20 74 6f 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 | to the |value of|
|00002ff0| 20 48 4f 4f 4b 20 74 68 | 65 20 66 75 6e 63 74 69 | HOOK th|e functi|
|00003000| 6f 6e 20 46 55 4e 43 54 | 49 4f 4e 2e 0a 46 55 4e |on FUNCT|ION..FUN|
|00003010| 43 54 49 4f 4e 20 69 73 | 20 6e 6f 74 20 61 64 64 |CTION is| not add|
|00003020| 65 64 20 69 66 20 61 6c | 72 65 61 64 79 20 70 72 |ed if al|ready pr|
|00003030| 65 73 65 6e 74 2e 0a 46 | 55 4e 43 54 49 4f 4e 20 |esent..F|UNCTION |
|00003040| 69 73 20 61 64 64 65 64 | 20 28 69 66 20 6e 65 63 |is added| (if nec|
|00003050| 65 73 73 61 72 79 29 20 | 61 74 20 74 68 65 20 62 |essary) |at the b|
|00003060| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|00003070| 68 6f 6f 6b 20 6c 69 73 | 74 0a 75 6e 6c 65 73 73 |hook lis|t.unless|
|00003080| 20 74 68 65 20 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | the opt|ional ar|
|00003090| 67 75 6d 65 6e 74 20 41 | 50 50 45 4e 44 20 69 73 |gument A|PPEND is|
|000030a0| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 69 6e 20 77 68 69 | non-nil|, in whi|
|000030b0| 63 68 20 63 61 73 65 0a | 46 55 4e 43 54 49 4f 4e |ch case.|FUNCTION|
|000030c0| 20 69 73 20 61 64 64 65 | 64 20 61 74 20 74 68 65 | is adde|d at the|
|000030d0| 20 65 6e 64 2e 0a 0a 54 | 68 65 20 6f 70 74 69 6f | end...T|he optio|
|000030e0| 6e 61 6c 20 66 6f 75 72 | 74 68 20 61 72 67 75 6d |nal four|th argum|
|000030f0| 65 6e 74 2c 20 4c 4f 43 | 41 4c 2c 20 69 66 20 6e |ent, LOC|AL, if n|
|00003100| 6f 6e 2d 6e 69 6c 2c 20 | 73 61 79 73 20 74 6f 20 |on-nil, |says to |
|00003110| 6d 6f 64 69 66 79 0a 74 | 68 65 20 68 6f 6f 6b 27 |modify.t|he hook'|
|00003120| 73 20 62 75 66 66 65 72 | 2d 6c 6f 63 61 6c 20 76 |s buffer|-local v|
|00003130| 61 6c 75 65 20 72 61 74 | 68 65 72 20 74 68 61 6e |alue rat|her than|
|00003140| 20 69 74 73 20 64 65 66 | 61 75 6c 74 20 76 61 6c | its def|ault val|
|00003150| 75 65 2e 0a 54 68 69 73 | 20 6d 61 6b 65 73 20 6e |ue..This| makes n|
|00003160| 6f 20 64 69 66 66 65 72 | 65 6e 63 65 20 69 66 20 |o differ|ence if |
|00003170| 74 68 65 20 68 6f 6f 6b | 20 69 73 20 6e 6f 74 20 |the hook| is not |
|00003180| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 2e 0a 54 6f |buffer-l|ocal..To|
|00003190| 20 6d 61 6b 65 20 61 20 | 68 6f 6f 6b 20 76 61 72 | make a |hook var|
|000031a0| 69 61 62 6c 65 20 62 75 | 66 66 65 72 2d 6c 6f 63 |iable bu|ffer-loc|
|000031b0| 61 6c 2c 20 61 6c 77 61 | 79 73 20 75 73 65 0a 60 |al, alwa|ys use.`|
|000031c0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 68 6f 6f 6b 27 |make-loc|al-hook'|
|000031d0| 2c 20 6e 6f 74 20 60 6d | 61 6b 65 2d 6c 6f 63 61 |, not `m|ake-loca|
|000031e0| 6c 2d 76 61 72 69 61 62 | 6c 65 27 2e 0a 0a 48 4f |l-variab|le'...HO|
|000031f0| 4f 4b 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 73 |OK shoul|d be a s|
|00003200| 79 6d 62 6f 6c 2c 20 61 | 6e 64 20 46 55 4e 43 54 |ymbol, a|nd FUNCT|
|00003210| 49 4f 4e 20 6d 61 79 20 | 62 65 20 61 6e 79 20 76 |ION may |be any v|
|00003220| 61 6c 69 64 20 66 75 6e | 63 74 69 6f 6e 2e 20 20 |alid fun|ction. |
|00003230| 49 66 0a 48 4f 4f 4b 20 | 69 73 20 76 6f 69 64 2c |If.HOOK |is void,|
|00003240| 20 69 74 20 69 73 20 66 | 69 72 73 74 20 73 65 74 | it is f|irst set|
|00003250| 20 74 6f 20 6e 69 6c 2e | 20 20 49 66 20 48 4f 4f | to nil.| If HOO|
|00003260| 4b 27 73 20 76 61 6c 75 | 65 20 69 73 20 61 20 73 |K's valu|e is a s|
|00003270| 69 6e 67 6c 65 0a 66 75 | 6e 63 74 69 6f 6e 2c 20 |ingle.fu|nction, |
|00003280| 69 74 20 69 73 20 63 68 | 61 6e 67 65 64 20 74 6f |it is ch|anged to|
|00003290| 20 61 20 6c 69 73 74 20 | 6f 66 20 66 75 6e 63 74 | a list |of funct|
|000032a0| 69 6f 6e 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ions...(|defalias|
|000032b0| 20 27 61 64 64 2d 68 6f | 6f 6b 20 23 5b 28 68 6f | 'add-ho|ok #[(ho|
|000032c0| 6f 6b 20 66 75 6e 63 74 | 69 6f 6e 20 26 6f 70 74 |ok funct|ion &opt|
|000032d0| 69 6f 6e 61 6c 20 61 70 | 70 65 6e 64 20 6c 6f 63 |ional ap|pend loc|
|000032e0| 61 6c 29 20 22 c0 09 21 | 84 5c 6e 00 09 c2 4c 88 |al) "..!|.\n...L.|
|000032f0| c3 09 21 84 15 00 c4 09 | c2 5c 22 88 09 4a 89 1d |..!.....|.\"..J..|
|00003300| 3c 83 24 00 0d 40 c6 3d | 83 29 00 09 0d 43 4c 88 |<.$..@.=|.)...CL.|
|00003310| 29 0e 07 84 3c 00 c8 09 | 21 83 69 00 c9 09 4a 3e |)...<...|!.i...J>|
|00003320| 84 69 00 0e 5c 6e 3a 83 | 4a 00 0e 5c 6e 09 4a 9d |.i..\n:.|J..\n.J.|
|00003330| 82 4f 00 0e 5c 6e 09 4a | 3e 86 9a 00 09 0e 0b 83 |.O..\n.J|>.......|
|00003340| 62 00 cb 09 4a 0e 5c 6e | 43 5c 22 82 67 00 0e 5c |b...J.\n|C\".g..\|
|00003350| 6e 09 4a 42 4c 87 0e 5c | 6e 3a 83 78 00 0e 5c 6e |n.JBL..\|n:.x..\n|
|00003360| cc 09 21 9d 82 7e 00 0e | 5c 6e cc 09 21 3e 86 9a |..!..~..|\n..!>..|
|00003370| 00 c4 09 0e 0b 83 93 00 | cb cc 09 21 0e 5c 6e 43 |........|...!.\nC|
|00003380| 5c 22 82 99 00 0e 5c 6e | cc 09 21 42 5c 22 87 22 |\"....\n|..!B\"."|
|00003390| 20 5b 62 6f 75 6e 64 70 | 20 68 6f 6f 6b 20 6e 69 | [boundp| hook ni|
|000033a0| 6c 20 64 65 66 61 75 6c | 74 2d 62 6f 75 6e 64 70 |l defaul|t-boundp|
|000033b0| 20 73 65 74 2d 64 65 66 | 61 75 6c 74 20 6f 6c 64 | set-def|ault old|
|000033c0| 20 6c 61 6d 62 64 61 20 | 6c 6f 63 61 6c 20 6c 6f | lambda |local lo|
|000033d0| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 2d 69 66 2d |cal-vari|able-if-|
|000033e0| 73 65 74 2d 70 20 74 20 | 66 75 6e 63 74 69 6f 6e |set-p t |function|
|000033f0| 20 61 70 70 65 6e 64 20 | 64 65 66 61 75 6c 74 2d | append |default-|
|00003400| 76 61 6c 75 65 5d 20 36 | 20 28 23 24 20 2e 20 31 |value] 6| (#$ . 1|
|00003410| 32 32 35 33 29 5d 29 0a | 23 40 35 34 32 20 52 65 |2253)]).|#@542 Re|
|00003420| 6d 6f 76 65 20 66 72 6f | 6d 20 74 68 65 20 76 61 |move fro|m the va|
|00003430| 6c 75 65 20 6f 66 20 48 | 4f 4f 4b 20 74 68 65 20 |lue of H|OOK the |
|00003440| 66 75 6e 63 74 69 6f 6e | 20 46 55 4e 43 54 49 4f |function| FUNCTIO|
|00003450| 4e 2e 0a 48 4f 4f 4b 20 | 73 68 6f 75 6c 64 20 62 |N..HOOK |should b|
|00003460| 65 20 61 20 73 79 6d 62 | 6f 6c 2c 20 61 6e 64 20 |e a symb|ol, and |
|00003470| 46 55 4e 43 54 49 4f 4e | 20 6d 61 79 20 62 65 20 |FUNCTION| may be |
|00003480| 61 6e 79 20 76 61 6c 69 | 64 20 66 75 6e 63 74 69 |any vali|d functi|
|00003490| 6f 6e 2e 20 20 49 66 0a | 46 55 4e 43 54 49 4f 4e |on. If.|FUNCTION|
|000034a0| 20 69 73 6e 27 74 20 74 | 68 65 20 76 61 6c 75 65 | isn't t|he value|
|000034b0| 20 6f 66 20 48 4f 4f 4b | 2c 20 6f 72 2c 20 69 66 | of HOOK|, or, if|
|000034c0| 20 46 55 4e 43 54 49 4f | 4e 20 64 6f 65 73 6e 27 | FUNCTIO|N doesn'|
|000034d0| 74 20 61 70 70 65 61 72 | 20 69 6e 20 74 68 65 0a |t appear| in the.|
|000034e0| 6c 69 73 74 20 6f 66 20 | 68 6f 6f 6b 73 20 74 6f |list of |hooks to|
|000034f0| 20 72 75 6e 20 69 6e 20 | 48 4f 4f 4b 2c 20 74 68 | run in |HOOK, th|
|00003500| 65 6e 20 6e 6f 74 68 69 | 6e 67 20 69 73 20 64 6f |en nothi|ng is do|
|00003510| 6e 65 2e 20 20 53 65 65 | 20 60 61 64 64 2d 68 6f |ne. See| `add-ho|
|00003520| 6f 6b 27 2e 0a 0a 54 68 | 65 20 6f 70 74 69 6f 6e |ok'...Th|e option|
|00003530| 61 6c 20 74 68 69 72 64 | 20 61 72 67 75 6d 65 6e |al third| argumen|
|00003540| 74 2c 20 4c 4f 43 41 4c | 2c 20 69 66 20 6e 6f 6e |t, LOCAL|, if non|
|00003550| 2d 6e 69 6c 2c 20 73 61 | 79 73 20 74 6f 20 6d 6f |-nil, sa|ys to mo|
|00003560| 64 69 66 79 0a 74 68 65 | 20 68 6f 6f 6b 27 73 20 |dify.the| hook's |
|00003570| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 76 61 6c |buffer-l|ocal val|
|00003580| 75 65 20 72 61 74 68 65 | 72 20 74 68 61 6e 20 69 |ue rathe|r than i|
|00003590| 74 73 20 64 65 66 61 75 | 6c 74 20 76 61 6c 75 65 |ts defau|lt value|
|000035a0| 2e 0a 54 68 69 73 20 6d | 61 6b 65 73 20 6e 6f 20 |..This m|akes no |
|000035b0| 64 69 66 66 65 72 65 6e | 63 65 20 69 66 20 74 68 |differen|ce if th|
|000035c0| 65 20 68 6f 6f 6b 20 69 | 73 20 6e 6f 74 20 62 75 |e hook i|s not bu|
|000035d0| 66 66 65 72 2d 6c 6f 63 | 61 6c 2e 0a 54 6f 20 6d |ffer-loc|al..To m|
|000035e0| 61 6b 65 20 61 20 68 6f | 6f 6b 20 76 61 72 69 61 |ake a ho|ok varia|
|000035f0| 62 6c 65 20 62 75 66 66 | 65 72 2d 6c 6f 63 61 6c |ble buff|er-local|
|00003600| 2c 20 61 6c 77 61 79 73 | 20 75 73 65 0a 60 6d 61 |, always| use.`ma|
|00003610| 6b 65 2d 6c 6f 63 61 6c | 2d 68 6f 6f 6b 27 2c 20 |ke-local|-hook', |
|00003620| 6e 6f 74 20 60 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |not `mak|e-local-|
|00003630| 76 61 72 69 61 62 6c 65 | 27 2e 1f 0a 28 64 65 66 |variable|'...(def|
|00003640| 61 6c 69 61 73 20 27 72 | 65 6d 6f 76 65 2d 68 6f |alias 'r|emove-ho|
|00003650| 6f 6b 20 23 5b 28 68 6f | 6f 6b 20 66 75 6e 63 74 |ok #[(ho|ok funct|
|00003660| 69 6f 6e 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6c 6f |ion &opt|ional lo|
|00003670| 63 61 6c 29 20 22 c0 09 | 21 3f 86 16 00 c2 c1 21 |cal) "..|!?.....!|
|00003680| 3f 86 16 00 09 4a 3f 86 | 16 00 0b 3f 3f 85 84 00 |?....J?.|...??...|
|00003690| 5c 66 84 2b 00 c5 09 21 | 83 57 00 c6 09 4a 3e 84 |\f.+...!|.W...J>.|
|000036a0| 57 00 09 4a 89 1e 07 3a | 83 47 00 0b 0e 07 9d 83 |W..J...:|.G......|
|000036b0| 51 00 c8 0b c9 0e 07 21 | 5c 22 16 07 82 51 00 0e |Q......!|\"...Q..|
|000036c0| 07 0b 9a 83 51 00 ca 16 | 07 09 0e 07 4c 29 87 cb |....Q...|....L)..|
|000036d0| 09 21 89 1e 07 3a 83 74 | 00 0b 0e 07 9d 83 7e 00 |.!...:.t|......~.|
|000036e0| c8 0b c9 0e 07 21 5c 22 | 16 07 82 7e 00 0e 07 0b |.....!\"|...~....|
|000036f0| 9a 83 7e 00 ca 16 07 cc | 09 0e 07 5c 22 29 87 22 |..~.....|...\")."|
|00003700| 20 5b 62 6f 75 6e 64 70 | 20 68 6f 6f 6b 20 64 65 | [boundp| hook de|
|00003710| 66 61 75 6c 74 2d 62 6f | 75 6e 64 70 20 66 75 6e |fault-bo|undp fun|
|00003720| 63 74 69 6f 6e 20 6c 6f | 63 61 6c 20 6c 6f 63 61 |ction lo|cal loca|
|00003730| 6c 2d 76 61 72 69 61 62 | 6c 65 2d 70 20 74 20 68 |l-variab|le-p t h|
|00003740| 6f 6f 6b 2d 76 61 6c 75 | 65 20 64 65 6c 65 74 65 |ook-valu|e delete|
|00003750| 20 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 6e | copy-se|quence n|
|00003760| 69 6c 20 64 65 66 61 75 | 6c 74 2d 76 61 6c 75 65 |il defau|lt-value|
|00003770| 20 73 65 74 2d 64 65 66 | 61 75 6c 74 5d 20 35 20 | set-def|ault] 5 |
|00003780| 28 23 24 20 2e 20 31 33 | 33 34 32 29 5d 29 0a 23 |(#$ . 13|342)]).#|
|00003790| 40 34 35 38 20 41 64 64 | 20 74 6f 20 74 68 65 20 |@458 Add| to the |
|000037a0| 76 61 6c 75 65 20 6f 66 | 20 4c 49 53 54 2d 56 41 |value of| LIST-VA|
|000037b0| 52 20 74 68 65 20 65 6c | 65 6d 65 6e 74 20 45 4c |R the el|ement EL|
|000037c0| 45 4d 45 4e 54 20 69 66 | 20 69 74 20 69 73 6e 27 |EMENT if| it isn'|
|000037d0| 74 20 74 68 65 72 65 20 | 79 65 74 2e 0a 54 68 65 |t there |yet..The|
|000037e0| 20 74 65 73 74 20 66 6f | 72 20 70 72 65 73 65 6e | test fo|r presen|
|000037f0| 63 65 20 6f 66 20 45 4c | 45 4d 45 4e 54 20 69 73 |ce of EL|EMENT is|
|00003800| 20 64 6f 6e 65 20 77 69 | 74 68 20 60 65 71 75 61 | done wi|th `equa|
|00003810| 6c 27 2e 0a 49 66 20 79 | 6f 75 20 77 61 6e 74 20 |l'..If y|ou want |
|00003820| 74 6f 20 75 73 65 20 60 | 61 64 64 2d 74 6f 2d 6c |to use `|add-to-l|
|00003830| 69 73 74 27 20 6f 6e 20 | 61 20 76 61 72 69 61 62 |ist' on |a variab|
|00003840| 6c 65 20 74 68 61 74 20 | 69 73 20 6e 6f 74 20 64 |le that |is not d|
|00003850| 65 66 69 6e 65 64 0a 75 | 6e 74 69 6c 20 61 20 63 |efined.u|ntil a c|
|00003860| 65 72 74 61 69 6e 20 70 | 61 63 6b 61 67 65 20 69 |ertain p|ackage i|
|00003870| 73 20 6c 6f 61 64 65 64 | 2c 20 79 6f 75 20 73 68 |s loaded|, you sh|
|00003880| 6f 75 6c 64 20 70 75 74 | 20 74 68 65 20 63 61 6c |ould put| the cal|
|00003890| 6c 20 74 6f 20 60 61 64 | 64 2d 74 6f 2d 6c 69 73 |l to `ad|d-to-lis|
|000038a0| 74 27 0a 69 6e 74 6f 20 | 61 20 68 6f 6f 6b 20 66 |t'.into |a hook f|
|000038b0| 75 6e 63 74 69 6f 6e 20 | 74 68 61 74 20 77 69 6c |unction |that wil|
|000038c0| 6c 20 62 65 20 72 75 6e | 20 6f 6e 6c 79 20 61 66 |l be run| only af|
|000038d0| 74 65 72 20 6c 6f 61 64 | 69 6e 67 20 74 68 65 20 |ter load|ing the |
|000038e0| 70 61 63 6b 61 67 65 2e | 0a 60 65 76 61 6c 2d 61 |package.|.`eval-a|
|000038f0| 66 74 65 72 2d 6c 6f 61 | 64 27 20 70 72 6f 76 69 |fter-loa|d' provi|
|00003900| 64 65 73 20 6f 6e 65 20 | 77 61 79 20 74 6f 20 64 |des one |way to d|
|00003910| 6f 20 74 68 69 73 2e 20 | 20 49 6e 20 73 6f 6d 65 |o this. | In some|
|00003920| 20 63 61 73 65 73 0a 6f | 74 68 65 72 20 68 6f 6f | cases.o|ther hoo|
|00003930| 6b 73 2c 20 73 75 63 68 | 20 61 73 20 6d 61 6a 6f |ks, such| as majo|
|00003940| 72 20 6d 6f 64 65 20 68 | 6f 6f 6b 73 2c 20 63 61 |r mode h|ooks, ca|
|00003950| 6e 20 64 6f 20 74 68 65 | 20 6a 6f 62 2e 1f 0a 28 |n do the| job...(|
|00003960| 64 65 66 61 6c 69 61 73 | 20 27 61 64 64 2d 74 6f |defalias| 'add-to|
|00003970| 2d 6c 69 73 74 20 23 5b | 28 6c 69 73 74 2d 76 61 |-list #[|(list-va|
|00003980| 72 20 65 6c 65 6d 65 6e | 74 29 20 22 08 09 4a 9d |r elemen|t) "..J.|
|00003990| 86 0d 00 09 08 09 4a 42 | 4c 87 22 20 5b 65 6c 65 |......JB|L." [ele|
|000039a0| 6d 65 6e 74 20 6c 69 73 | 74 2d 76 61 72 5d 20 33 |ment lis|t-var] 3|
|000039b0| 20 28 23 24 20 2e 20 31 | 34 32 32 39 29 5d 29 0a | (#$ . 1|4229)]).|
|000039c0| 23 40 32 39 35 20 41 72 | 72 61 6e 67 65 20 74 68 |#@295 Ar|range th|
|000039d0| 61 74 2c 20 69 66 20 46 | 49 4c 45 20 69 73 20 65 |at, if F|ILE is e|
|000039e0| 76 65 72 20 6c 6f 61 64 | 65 64 2c 20 46 4f 52 4d |ver load|ed, FORM|
|000039f0| 20 77 69 6c 6c 20 62 65 | 20 72 75 6e 20 61 74 20 | will be| run at |
|00003a00| 74 68 61 74 20 74 69 6d | 65 2e 0a 54 68 69 73 20 |that tim|e..This |
|00003a10| 6d 61 6b 65 73 20 6f 72 | 20 61 64 64 73 20 74 6f |makes or| adds to|
|00003a20| 20 61 6e 20 65 6e 74 72 | 79 20 6f 6e 20 60 61 66 | an entr|y on `af|
|00003a30| 74 65 72 2d 6c 6f 61 64 | 2d 61 6c 69 73 74 27 2e |ter-load|-alist'.|
|00003a40| 0a 49 66 20 46 49 4c 45 | 20 69 73 20 61 6c 72 65 |.If FILE| is alre|
|00003a50| 61 64 79 20 6c 6f 61 64 | 65 64 2c 20 65 76 61 6c |ady load|ed, eval|
|00003a60| 75 61 74 65 20 46 4f 52 | 4d 20 72 69 67 68 74 20 |uate FOR|M right |
|00003a70| 6e 6f 77 2e 0a 49 74 20 | 64 6f 65 73 20 6e 6f 74 |now..It |does not|
|00003a80| 68 69 6e 67 20 69 66 20 | 46 4f 52 4d 20 69 73 20 |hing if |FORM is |
|00003a90| 61 6c 72 65 61 64 79 20 | 6f 6e 20 74 68 65 20 6c |already |on the l|
|00003aa0| 69 73 74 20 66 6f 72 20 | 46 49 4c 45 2e 0a 46 49 |ist for |FILE..FI|
|00003ab0| 4c 45 20 73 68 6f 75 6c | 64 20 62 65 20 74 68 65 |LE shoul|d be the|
|00003ac0| 20 6e 61 6d 65 20 6f 66 | 20 61 20 6c 69 62 72 61 | name of| a libra|
|00003ad0| 72 79 2c 20 77 69 74 68 | 20 6e 6f 20 64 69 72 65 |ry, with| no dire|
|00003ae0| 63 74 6f 72 79 20 6e 61 | 6d 65 2e 1f 0a 28 64 65 |ctory na|me...(de|
|00003af0| 66 61 6c 69 61 73 20 27 | 65 76 61 6c 2d 61 66 74 |falias '|eval-aft|
|00003b00| 65 72 2d 6c 6f 61 64 20 | 23 5b 28 66 69 6c 65 20 |er-load |#[(file |
|00003b10| 66 6f 72 6d 29 20 22 c0 | 09 5c 6e 5c 22 84 5c 66 |form) ".|.\n\".\f|
|00003b20| 00 09 43 5c 6e 42 12 c0 | 09 5c 6e 5c 22 1b 5c 66 |..C\nB..|.\n\".\f|
|00003b30| 0b 41 9d 84 28 00 0b 5c | 66 43 a4 88 c0 09 0d 5c |.A..(..\|fC.....\|
|00003b40| 22 83 28 00 c6 5c 66 21 | 88 29 5c 66 87 22 20 5b |".(..\f!|.)\f." [|
|00003b50| 61 73 73 6f 63 20 66 69 | 6c 65 20 61 66 74 65 72 |assoc fi|le after|
|00003b60| 2d 6c 6f 61 64 2d 61 6c | 69 73 74 20 65 6c 74 20 |-load-al|ist elt |
|00003b70| 66 6f 72 6d 20 6c 6f 61 | 64 2d 68 69 73 74 6f 72 |form loa|d-histor|
|00003b80| 79 20 65 76 61 6c 5d 20 | 33 20 28 23 24 20 2e 20 |y eval] |3 (#$ . |
|00003b90| 31 34 37 39 30 29 5d 29 | 0a 23 40 31 38 34 20 52 |14790)])|.#@184 R|
|00003ba0| 65 61 64 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ead the |followin|
|00003bb0| 67 20 69 6e 70 75 74 20 | 73 65 78 70 2c 20 61 6e |g input |sexp, an|
|00003bc0| 64 20 72 75 6e 20 69 74 | 20 77 68 65 6e 65 76 65 |d run it| wheneve|
|00003bd0| 72 20 46 49 4c 45 20 69 | 73 20 6c 6f 61 64 65 64 |r FILE i|s loaded|
|00003be0| 2e 0a 54 68 69 73 20 6d | 61 6b 65 73 20 6f 72 20 |..This m|akes or |
|00003bf0| 61 64 64 73 20 74 6f 20 | 61 6e 20 65 6e 74 72 79 |adds to |an entry|
|00003c00| 20 6f 6e 20 60 61 66 74 | 65 72 2d 6c 6f 61 64 2d | on `aft|er-load-|
|00003c10| 61 6c 69 73 74 27 2e 0a | 46 49 4c 45 20 73 68 6f |alist'..|FILE sho|
|00003c20| 75 6c 64 20 62 65 20 74 | 68 65 20 6e 61 6d 65 20 |uld be t|he name |
|00003c30| 6f 66 20 61 20 6c 69 62 | 72 61 72 79 2c 20 77 69 |of a lib|rary, wi|
|00003c40| 74 68 20 6e 6f 20 64 69 | 72 65 63 74 6f 72 79 20 |th no di|rectory |
|00003c50| 6e 61 6d 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |name...(|defalias|
|00003c60| 20 27 65 76 61 6c 2d 6e | 65 78 74 2d 61 66 74 65 | 'eval-n|ext-afte|
|00003c70| 72 2d 6c 6f 61 64 20 23 | 5b 28 66 69 6c 65 29 20 |r-load #|[(file) |
|00003c80| 22 c0 09 c2 20 5c 22 87 | 22 20 5b 65 76 61 6c 2d |"... \".|" [eval-|
|00003c90| 61 66 74 65 72 2d 6c 6f | 61 64 20 66 69 6c 65 20 |after-lo|ad file |
|00003ca0| 72 65 61 64 5d 20 33 20 | 28 23 24 20 2e 20 31 35 |read] 3 |(#$ . 15|
|00003cb0| 32 36 33 29 5d 29 0a 23 | 40 32 37 30 20 4c 69 6b |263)]).#|@270 Lik|
|00003cc0| 65 20 60 72 65 61 64 2d | 63 68 61 72 27 2c 20 65 |e `read-|char', e|
|00003cd0| 78 63 65 70 74 20 74 68 | 61 74 20 69 66 20 74 68 |xcept th|at if th|
|00003ce0| 65 20 66 69 72 73 74 20 | 63 68 61 72 61 63 74 65 |e first |characte|
|00003cf0| 72 20 72 65 61 64 20 69 | 73 20 61 6e 20 6f 63 74 |r read i|s an oct|
|00003d00| 61 6c 0a 64 69 67 69 74 | 2c 20 77 65 20 72 65 61 |al.digit|, we rea|
|00003d10| 64 20 75 70 20 74 6f 20 | 74 77 6f 20 6d 6f 72 65 |d up to |two more|
|00003d20| 20 6f 63 74 61 6c 20 64 | 69 67 69 74 73 20 61 6e | octal d|igits an|
|00003d30| 64 20 72 65 74 75 72 6e | 20 74 68 65 20 63 68 61 |d return| the cha|
|00003d40| 72 61 63 74 65 72 0a 72 | 65 70 72 65 73 65 6e 74 |racter.r|epresent|
|00003d50| 65 64 20 62 79 20 74 68 | 65 20 6f 63 74 61 6c 20 |ed by th|e octal |
|00003d60| 6e 75 6d 62 65 72 20 63 | 6f 6e 73 69 73 74 69 6e |number c|onsistin|
|00003d70| 67 20 6f 66 20 74 68 6f | 73 65 20 64 69 67 69 74 |g of tho|se digit|
|00003d80| 73 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 75 |s..Optio|nal argu|
|00003d90| 6d 65 6e 74 20 50 52 4f | 4d 50 54 20 73 70 65 63 |ment PRO|MPT spec|
|00003da0| 69 66 69 65 73 20 61 20 | 73 74 72 69 6e 67 20 74 |ifies a |string t|
|00003db0| 6f 20 75 73 65 20 74 6f | 20 70 72 6f 6d 70 74 20 |o use to| prompt |
|00003dc0| 74 68 65 20 75 73 65 72 | 2e 1f 0a 28 64 65 66 61 |the user|...(defa|
|00003dd0| 6c 69 61 73 20 27 72 65 | 61 64 2d 71 75 6f 74 65 |lias 're|ad-quote|
|00003de0| 64 2d 63 68 61 72 20 23 | 5b 28 26 6f 70 74 69 6f |d-char #|[(&optio|
|00003df0| 6e 61 6c 20 70 72 6f 6d | 70 74 29 20 22 c0 c1 89 |nal prom|pt) "...|
|00003e00| c0 1a 1b 1c 1d 5c 66 c6 | 57 83 73 00 5c 66 c1 55 |.....\f.|W.s.\f.U|
|00003e10| c0 c7 1e 08 1e 09 1e 5c | 6e 0e 0b 83 24 00 cc cd |.......\|n...$...|
|00003e20| 0e 0b 5c 22 88 ce 20 12 | 0e 5c 6e 83 2f 00 c0 16 |..\".. .|.\n./...|
|00003e30| 0f 2b 5c 6e 83 08 00 d0 | 5c 6e 58 83 5b 00 5c 6e |.+\n....|\nX.[.\n|
|00003e40| d1 58 83 5b 00 0b d2 5f | 5c 6e d0 5a 5c 5c 13 5c |.X.[..._|\n.Z\\.\|
|00003e50| 66 54 14 0e 0b 83 08 00 | cc d3 0e 0b 5c 6e 23 16 |fT......|....\n#.|
|00003e60| 0b 82 08 00 5c 66 c1 56 | 83 6b 00 5c 6e 43 16 14 |....\f.V|.k.\nC..|
|00003e70| d5 89 14 82 09 00 5c 6e | 13 d5 89 14 82 09 00 d6 |......\n|........|
|00003e80| d7 0b d8 5c 22 c1 55 84 | 81 00 d9 82 82 00 c1 d7 |...\".U.|........|
|00003e90| 0b da 5c 22 5c 22 2c 87 | 22 20 5b 6e 69 6c 20 30 |..\"\",.|" [nil 0|
|00003ea0| 20 63 68 61 72 20 63 6f | 64 65 20 63 6f 75 6e 74 | char co|de count|
|00003eb0| 20 6d 65 73 73 61 67 65 | 2d 6c 6f 67 2d 6d 61 78 | message|-log-max|
|00003ec0| 20 33 20 22 54 79 70 65 | 20 74 68 65 20 73 70 65 | 3 "Type| the spe|
|00003ed0| 63 69 61 6c 20 63 68 61 | 72 61 63 74 65 72 20 79 |cial cha|racter y|
|00003ee0| 6f 75 20 77 61 6e 74 20 | 74 6f 20 75 73 65 2c 5c |ou want |to use,\|
|00003ef0| 6e 6f 72 20 74 68 72 65 | 65 20 6f 63 74 61 6c 20 |nor thre|e octal |
|00003f00| 64 69 67 69 74 73 20 72 | 65 70 72 65 73 65 6e 74 |digits r|epresent|
|00003f10| 69 6e 67 20 69 74 73 20 | 63 68 61 72 61 63 74 65 |ing its |characte|
|00003f20| 72 20 63 6f 64 65 2e 22 | 20 68 65 6c 70 2d 66 6f |r code."| help-fo|
|00003f30| 72 6d 20 68 65 6c 70 2d | 63 68 61 72 20 69 6e 68 |rm help-|char inh|
|00003f40| 69 62 69 74 2d 71 75 69 | 74 20 70 72 6f 6d 70 74 |ibit-qui|t prompt|
|00003f50| 20 6d 65 73 73 61 67 65 | 20 22 25 73 2d 22 20 72 | message| "%s-" r|
|00003f60| 65 61 64 2d 63 68 61 72 | 20 71 75 69 74 2d 66 6c |ead-char| quit-fl|
|00003f70| 61 67 20 34 38 20 35 35 | 20 38 20 22 25 73 20 25 |ag 48 55| 8 "%s %|
|00003f80| 63 22 20 75 6e 72 65 61 | 64 2d 63 6f 6d 6d 61 6e |c" unrea|d-comman|
|00003f90| 64 2d 65 76 65 6e 74 73 | 20 32 35 39 20 6c 6f 67 |d-events| 259 log|
|00003fa0| 69 6f 72 20 6c 6f 67 61 | 6e 64 20 2d 31 33 34 32 |ior loga|nd -1342|
|00003fb0| 31 37 37 32 38 20 31 32 | 38 20 32 35 35 5d 20 36 |17728 12|8 255] 6|
|00003fc0| 20 28 23 24 20 2e 20 31 | 35 35 34 39 29 5d 29 0a | (#$ . 1|5549)]).|
|00003fd0| 23 40 31 32 34 20 46 6f | 72 63 65 20 74 68 65 20 |#@124 Fo|rce the |
|00003fe0| 6d 6f 64 65 2d 6c 69 6e | 65 20 6f 66 20 74 68 65 |mode-lin|e of the|
|00003ff0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 20 | current| buffer |
|00004000| 74 6f 20 62 65 20 72 65 | 64 69 73 70 6c 61 79 65 |to be re|displaye|
|00004010| 64 2e 0a 57 69 74 68 20 | 6f 70 74 69 6f 6e 61 6c |d..With |optional|
|00004020| 20 6e 6f 6e 2d 6e 69 6c | 20 41 4c 4c 2c 20 66 6f | non-nil| ALL, fo|
|00004030| 72 63 65 20 72 65 64 69 | 73 70 6c 61 79 20 6f 66 |rce redi|splay of|
|00004040| 20 61 6c 6c 20 6d 6f 64 | 65 2d 6c 69 6e 65 73 2e | all mod|e-lines.|
|00004050| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 6f 72 |..(defal|ias 'for|
|00004060| 63 65 2d 6d 6f 64 65 2d | 6c 69 6e 65 2d 75 70 64 |ce-mode-|line-upd|
|00004070| 61 74 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ate #[(&|optional|
|00004080| 20 61 6c 6c 29 20 22 08 | 83 5c 6e 00 8a c1 20 71 | all) ".|.\n... q|
|00004090| 88 29 c2 c3 20 21 87 22 | 20 5b 61 6c 6c 20 6f 74 |.).. !."| [all ot|
|000040a0| 68 65 72 2d 62 75 66 66 | 65 72 20 73 65 74 2d 62 |her-buff|er set-b|
|000040b0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000040c0| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|000040d0| 2d 70 5d 20 32 20 28 23 | 24 20 2e 20 31 36 33 34 |-p] 2 (#|$ . 1634|
|000040e0| 32 29 5d 29 0a 23 40 33 | 37 35 20 4d 6f 6d 65 6e |2)]).#@3|75 Momen|
|000040f0| 74 61 72 69 6c 79 20 64 | 69 73 70 6c 61 79 20 53 |tarily d|isplay S|
|00004100| 54 52 49 4e 47 20 69 6e | 20 74 68 65 20 62 75 66 |TRING in| the buf|
|00004110| 66 65 72 20 61 74 20 50 | 4f 53 2e 0a 44 69 73 70 |fer at P|OS..Disp|
|00004120| 6c 61 79 20 72 65 6d 61 | 69 6e 73 20 75 6e 74 69 |lay rema|ins unti|
|00004130| 6c 20 6e 65 78 74 20 63 | 68 61 72 61 63 74 65 72 |l next c|haracter|
|00004140| 20 69 73 20 74 79 70 65 | 64 2e 0a 49 66 20 74 68 | is type|d..If th|
|00004150| 65 20 63 68 61 72 20 69 | 73 20 45 58 49 54 2d 43 |e char i|s EXIT-C|
|00004160| 48 41 52 20 28 6f 70 74 | 69 6f 6e 61 6c 20 74 68 |HAR (opt|ional th|
|00004170| 69 72 64 20 61 72 67 2c | 20 64 65 66 61 75 6c 74 |ird arg,| default|
|00004180| 20 69 73 20 53 50 43 29 | 20 69 74 20 69 73 20 73 | is SPC)| it is s|
|00004190| 77 61 6c 6c 6f 77 65 64 | 3b 0a 6f 74 68 65 72 77 |wallowed|;.otherw|
|000041a0| 69 73 65 20 69 74 20 69 | 73 20 74 68 65 6e 20 61 |ise it i|s then a|
|000041b0| 76 61 69 6c 61 62 6c 65 | 20 61 73 20 69 6e 70 75 |vailable| as inpu|
|000041c0| 74 20 28 61 73 20 61 20 | 63 6f 6d 6d 61 6e 64 20 |t (as a |command |
|000041d0| 69 66 20 6e 6f 74 68 69 | 6e 67 20 65 6c 73 65 29 |if nothi|ng else)|
|000041e0| 2e 0a 44 69 73 70 6c 61 | 79 20 4d 45 53 53 41 47 |..Displa|y MESSAG|
|000041f0| 45 20 28 6f 70 74 69 6f | 6e 61 6c 20 66 6f 75 72 |E (optio|nal four|
|00004200| 74 68 20 61 72 67 29 20 | 69 6e 20 74 68 65 20 65 |th arg) |in the e|
|00004210| 63 68 6f 20 61 72 65 61 | 2e 0a 49 66 20 4d 45 53 |cho area|..If MES|
|00004220| 53 41 47 45 20 69 73 20 | 6e 69 6c 2c 20 69 6e 73 |SAGE is |nil, ins|
|00004230| 74 72 75 63 74 69 6f 6e | 73 20 74 6f 20 74 79 70 |truction|s to typ|
|00004240| 65 20 45 58 49 54 2d 43 | 48 41 52 20 61 72 65 20 |e EXIT-C|HAR are |
|00004250| 64 69 73 70 6c 61 79 65 | 64 20 74 68 65 72 65 2e |displaye|d there.|
|00004260| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 6f 6d |..(defal|ias 'mom|
|00004270| 65 6e 74 61 72 79 2d 73 | 74 72 69 6e 67 2d 64 69 |entary-s|tring-di|
|00004280| 73 70 6c 61 79 20 23 5b | 28 73 74 72 69 6e 67 20 |splay #[|(string |
|00004290| 70 6f 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 65 78 |pos &opt|ional ex|
|000042a0| 69 74 2d 63 68 61 72 20 | 6d 65 73 73 61 67 65 29 |it-char |message)|
|000042b0| 20 22 08 84 06 00 c1 10 | c2 c3 c4 20 0d c2 1e 06 | "......|... ....|
|000042c0| 1e 07 1e 08 1e 09 1e 5c | 6e cb 8e 8a 0e 5c 66 62 |.......\|n....\fb|
|000042d0| 88 c2 15 cd 0e 0e 21 88 | 60 16 06 cf 20 0e 06 56 |......!.|`... ..V|
|000042e0| 83 36 00 d0 d1 20 d2 a5 | 21 88 d3 d4 21 88 60 0e |.6... ..|!...!.`.|
|000042f0| 5c 66 56 83 49 00 0e 5c | 66 62 88 d0 d4 21 88 29 |\fV.I..\|fb...!.)|
|00004300| d5 0e 15 86 51 00 d6 d7 | 08 21 5c 22 88 d8 20 89 |....Q...|.!\".. .|
|00004310| 1e 19 08 3d 86 66 00 0e | 19 43 89 16 1a 2e 07 87 |...=.f..|.C......|
|00004320| 22 20 5b 65 78 69 74 2d | 63 68 61 72 20 33 32 20 |" [exit-|char 32 |
|00004330| 6e 69 6c 20 74 20 62 75 | 66 66 65 72 2d 6d 6f 64 |nil t bu|ffer-mod|
|00004340| 69 66 69 65 64 2d 70 20 | 62 75 66 66 65 72 2d 66 |ified-p |buffer-f|
|00004350| 69 6c 65 2d 6e 61 6d 65 | 20 69 6e 73 65 72 74 2d |ile-name| insert-|
|00004360| 65 6e 64 20 6e 61 6d 65 | 20 6d 6f 64 69 66 69 65 |end name| modifie|
|00004370| 64 20 62 75 66 66 65 72 | 2d 75 6e 64 6f 2d 6c 69 |d buffer|-undo-li|
|00004380| 73 74 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |st buffe|r-read-o|
|00004390| 6e 6c 79 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |nly ((by|te-code |
|000043a0| 22 08 83 5c 6e 00 8a 09 | 08 7c 88 29 5c 6e 13 c4 |"..\n...|.|.)\n..|
|000043b0| 0d 21 87 22 20 5b 69 6e | 73 65 72 74 2d 65 6e 64 |.!." [in|sert-end|
|000043c0| 20 70 6f 73 20 6e 61 6d | 65 20 62 75 66 66 65 72 | pos nam|e buffer|
|000043d0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 73 65 74 2d 62 |-file-na|me set-b|
|000043e0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000043f0| 20 6d 6f 64 69 66 69 65 | 64 5d 20 32 29 29 20 70 | modifie|d] 2)) p|
|00004400| 6f 73 20 69 6e 73 65 72 | 74 2d 62 65 66 6f 72 65 |os inser|t-before|
|00004410| 2d 6d 61 72 6b 65 72 73 | 20 73 74 72 69 6e 67 20 |-markers| string |
|00004420| 77 69 6e 64 6f 77 2d 65 | 6e 64 20 72 65 63 65 6e |window-e|nd recen|
|00004430| 74 65 72 20 77 69 6e 64 | 6f 77 2d 68 65 69 67 68 |ter wind|ow-heigh|
|00004440| 74 20 32 20 6d 6f 76 65 | 2d 74 6f 2d 77 69 6e 64 |t 2 move|-to-wind|
|00004450| 6f 77 2d 6c 69 6e 65 20 | 30 20 6d 65 73 73 61 67 |ow-line |0 messag|
|00004460| 65 20 22 54 79 70 65 20 | 25 73 20 74 6f 20 63 6f |e "Type |%s to co|
|00004470| 6e 74 69 6e 75 65 20 65 | 64 69 74 69 6e 67 2e 22 |ntinue e|diting."|
|00004480| 20 73 69 6e 67 6c 65 2d | 6b 65 79 2d 64 65 73 63 | single-|key-desc|
|00004490| 72 69 70 74 69 6f 6e 20 | 72 65 61 64 2d 65 76 65 |ription |read-eve|
|000044a0| 6e 74 20 63 68 61 72 20 | 75 6e 72 65 61 64 2d 63 |nt char |unread-c|
|000044b0| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 73 5d 20 36 |ommand-e|vents] 6|
|000044c0| 20 28 23 24 20 2e 20 31 | 36 36 31 39 29 5d 29 0a | (#$ . 1|6619)]).|
|000044d0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|000044e0| 08 00 c2 11 c1 0b 42 13 | c2 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|000044f0| 6e 64 70 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 64 65 |ndp font|-lock-de|
|00004500| 66 61 75 6c 74 73 20 6e | 69 6c 20 63 75 72 72 65 |faults n|il curre|
|00004510| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00004520| 0a 23 40 32 31 38 20 4e | 6f 6e 2d 6e 69 6c 20 69 |.#@218 N|on-nil i|
|00004530| 66 20 74 68 65 20 76 69 | 73 69 74 65 64 20 66 69 |f the vi|sited fi|
|00004540| 6c 65 20 69 73 20 61 20 | 62 69 6e 61 72 79 20 66 |le is a |binary f|
|00004550| 69 6c 65 2e 0a 54 68 69 | 73 20 76 61 72 69 61 62 |ile..Thi|s variab|
|00004560| 6c 65 20 69 73 20 6d 65 | 61 6e 69 6e 67 66 75 6c |le is me|aningful|
|00004570| 20 6f 6e 20 4d 53 2d 44 | 4f 47 20 61 6e 64 20 57 | on MS-D|OG and W|
|00004580| 69 6e 64 6f 77 73 20 4e | 54 2e 0a 4f 6e 20 74 68 |indows N|T..On th|
|00004590| 6f 73 65 20 73 79 73 74 | 65 6d 73 2c 20 69 74 20 |ose syst|ems, it |
|000045a0| 69 73 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |is autom|atically|
|000045b0| 20 6c 6f 63 61 6c 20 69 | 6e 20 65 76 65 72 79 20 | local i|n every |
|000045c0| 62 75 66 66 65 72 2e 0a | 4f 6e 20 6f 74 68 65 72 |buffer..|On other|
|000045d0| 20 73 79 73 74 65 6d 73 | 2c 20 74 68 69 73 20 76 | systems|, this v|
|000045e0| 61 72 69 61 62 6c 65 20 | 69 73 20 6e 6f 72 6d 61 |ariable |is norma|
|000045f0| 6c 6c 79 20 61 6c 77 61 | 79 73 20 6e 69 6c 2e 1f |lly alwa|ys nil..|
|00004600| 0a 28 64 65 66 76 61 72 | 20 62 75 66 66 65 72 2d |.(defvar| buffer-|
|00004610| 66 69 6c 65 2d 74 79 70 | 65 20 6e 69 6c 20 28 23 |file-typ|e nil (#|
|00004620| 24 20 2e 20 31 37 37 30 | 33 29 29 0a 23 40 31 31 |$ . 1770|3)).#@11|
|00004630| 38 20 52 65 74 75 72 6e | 20 77 69 6e 64 6f 77 73 |8 Return| windows|
|00004640| 20 63 75 72 72 65 6e 74 | 6c 79 20 64 69 73 70 6c | current|ly displ|
|00004650| 61 79 69 6e 67 20 42 55 | 46 46 45 52 2c 20 6f 72 |aying BU|FFER, or|
|00004660| 20 6e 69 6c 20 69 66 20 | 6e 6f 6e 65 2e 0a 53 65 | nil if |none..Se|
|00004670| 65 20 60 77 61 6c 6b 2d | 77 69 6e 64 6f 77 73 27 |e `walk-|windows'|
|00004680| 20 66 6f 72 20 74 68 65 | 20 6d 65 61 6e 69 6e 67 | for the| meaning|
|00004690| 20 6f 66 20 4d 49 4e 49 | 42 55 46 20 61 6e 64 20 | of MINI|BUF and |
|000046a0| 46 52 41 4d 45 2e 1f 0a | 28 64 65 66 61 6c 69 61 |FRAME...|(defalia|
|000046b0| 73 20 27 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |s 'get-b|uffer-wi|
|000046c0| 6e 64 6f 77 2d 6c 69 73 | 74 20 23 5b 28 62 75 66 |ndow-lis|t #[(buf|
|000046d0| 66 65 72 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 69 |fer &opt|ional mi|
|000046e0| 6e 69 62 75 66 20 66 72 | 61 6d 65 29 20 22 c0 09 |nibuf fr|ame) "..|
|000046f0| 21 83 5c 6e 00 09 82 0d | 00 c2 09 21 c3 1c 19 c5 |!.\n....|...!....|
|00004700| c6 0e 07 0e 08 23 88 5c | 66 2a 87 22 20 5b 62 75 |.....#.\|f*." [bu|
|00004710| 66 66 65 72 70 20 62 75 | 66 66 65 72 20 67 65 74 |fferp bu|ffer get|
|00004720| 2d 62 75 66 66 65 72 20 | 6e 69 6c 20 77 69 6e 64 |-buffer |nil wind|
|00004730| 6f 77 73 20 77 61 6c 6b | 2d 77 69 6e 64 6f 77 73 |ows walk|-windows|
|00004740| 20 23 5b 28 77 69 6e 64 | 6f 77 29 20 22 c0 09 21 | #[(wind|ow) "..!|
|00004750| 5c 6e 3d 85 0d 00 09 0b | 42 89 13 87 22 20 5b 77 |\n=.....|B..." [w|
|00004760| 69 6e 64 6f 77 2d 62 75 | 66 66 65 72 20 77 69 6e |indow-bu|ffer win|
|00004770| 64 6f 77 20 62 75 66 66 | 65 72 20 77 69 6e 64 6f |dow buff|er windo|
|00004780| 77 73 5d 20 32 5d 20 6d | 69 6e 69 62 75 66 20 66 |ws] 2] m|inibuf f|
|00004790| 72 61 6d 65 5d 20 34 20 | 28 23 24 20 2e 20 31 37 |rame] 4 |(#$ . 17|
|000047a0| 39 37 30 29 5d 29 0a 23 | 40 39 33 20 44 6f 20 6e |970)]).#|@93 Do n|
|000047b0| 6f 74 68 69 6e 67 20 61 | 6e 64 20 72 65 74 75 72 |othing a|nd retur|
|000047c0| 6e 20 6e 69 6c 2e 0a 54 | 68 69 73 20 66 75 6e 63 |n nil..T|his func|
|000047d0| 74 69 6f 6e 20 61 63 63 | 65 70 74 73 20 61 6e 79 |tion acc|epts any|
|000047e0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 61 72 67 75 6d | number |of argum|
|000047f0| 65 6e 74 73 2c 20 62 75 | 74 20 69 67 6e 6f 72 65 |ents, bu|t ignore|
|00004800| 73 20 74 68 65 6d 2e 1f | 0a 28 64 65 66 61 6c 69 |s them..|.(defali|
|00004810| 61 73 20 27 69 67 6e 6f | 72 65 20 23 5b 28 26 72 |as 'igno|re #[(&r|
|00004820| 65 73 74 20 69 67 6e 6f | 72 65 29 20 22 c0 87 22 |est igno|re) ".."|
|00004830| 20 5b 6e 69 6c 5d 20 31 | 20 28 23 24 20 2e 20 31 | [nil] 1| (#$ . 1|
|00004840| 38 33 34 38 29 20 6e 69 | 6c 5d 29 0a 23 40 32 34 |8348) ni|l]).#@24|
|00004850| 30 20 53 69 67 6e 61 6c | 20 61 6e 20 65 72 72 6f |0 Signal| an erro|
|00004860| 72 2c 20 6d 61 6b 69 6e | 67 20 65 72 72 6f 72 20 |r, makin|g error |
|00004870| 6d 65 73 73 61 67 65 20 | 62 79 20 70 61 73 73 69 |message |by passi|
|00004880| 6e 67 20 61 6c 6c 20 61 | 72 67 73 20 74 6f 20 60 |ng all a|rgs to `|
|00004890| 66 6f 72 6d 61 74 27 2e | 0a 49 6e 20 45 6d 61 63 |format'.|.In Emac|
|000048a0| 73 2c 20 74 68 65 20 63 | 6f 6e 76 65 6e 74 69 6f |s, the c|onventio|
|000048b0| 6e 20 69 73 20 74 68 61 | 74 20 65 72 72 6f 72 20 |n is tha|t error |
|000048c0| 6d 65 73 73 61 67 65 73 | 20 73 74 61 72 74 20 77 |messages| start w|
|000048d0| 69 74 68 20 61 20 63 61 | 70 69 74 61 6c 0a 6c 65 |ith a ca|pital.le|
|000048e0| 74 74 65 72 20 62 75 74 | 20 2a 64 6f 20 6e 6f 74 |tter but| *do not|
|000048f0| 2a 20 65 6e 64 20 77 69 | 74 68 20 61 20 70 65 72 |* end wi|th a per|
|00004900| 69 6f 64 2e 20 20 50 6c | 65 61 73 65 20 66 6f 6c |iod. Pl|ease fol|
|00004910| 6c 6f 77 20 74 68 69 73 | 20 63 6f 6e 76 65 6e 74 |low this| convent|
|00004920| 69 6f 6e 0a 66 6f 72 20 | 74 68 65 20 73 61 6b 65 |ion.for |the sake|
|00004930| 20 6f 66 20 63 6f 6e 73 | 69 73 74 65 6e 63 79 2e | of cons|istency.|
|00004940| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 72 72 |..(defal|ias 'err|
|00004950| 6f 72 20 23 5b 28 26 72 | 65 73 74 20 61 72 67 73 |or #[(&r|est args|
|00004960| 29 20 22 c0 c1 c2 c3 5c | 66 5c 22 43 5c 22 88 82 |) "....\|f\"C\"..|
|00004970| 00 00 22 20 5b 73 69 67 | 6e 61 6c 20 65 72 72 6f |.." [sig|nal erro|
|00004980| 72 20 61 70 70 6c 79 20 | 66 6f 72 6d 61 74 20 61 |r apply |format a|
|00004990| 72 67 73 5d 20 35 20 28 | 23 24 20 2e 20 31 38 35 |rgs] 5 (|#$ . 185|
|000049a0| 31 34 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |14)]).(d|efalias |
|000049b0| 28 71 75 6f 74 65 20 75 | 73 65 72 2d 6f 72 69 67 |(quote u|ser-orig|
|000049c0| 69 6e 61 6c 2d 6c 6f 67 | 69 6e 2d 6e 61 6d 65 29 |inal-log|in-name)|
|000049d0| 20 28 71 75 6f 74 65 20 | 75 73 65 72 2d 6c 6f 67 | (quote |user-log|
|000049e0| 69 6e 2d 6e 61 6d 65 29 | 29 0a 23 40 36 34 31 20 |in-name)|).#@641 |
|000049f0| 53 74 61 72 74 20 61 20 | 70 72 6f 67 72 61 6d 20 |Start a |program |
|00004a00| 69 6e 20 61 20 73 75 62 | 70 72 6f 63 65 73 73 2e |in a sub|process.|
|00004a10| 20 20 52 65 74 75 72 6e | 20 74 68 65 20 70 72 6f | Return| the pro|
|00004a20| 63 65 73 73 20 6f 62 6a | 65 63 74 20 66 6f 72 20 |cess obj|ect for |
|00004a30| 69 74 2e 0a 41 72 67 73 | 20 61 72 65 20 4e 41 4d |it..Args| are NAM|
|00004a40| 45 20 42 55 46 46 45 52 | 20 43 4f 4d 4d 41 4e 44 |E BUFFER| COMMAND|
|00004a50| 20 26 72 65 73 74 20 43 | 4f 4d 4d 41 4e 44 2d 41 | &rest C|OMMAND-A|
|00004a60| 52 47 53 2e 0a 4e 41 4d | 45 20 69 73 20 6e 61 6d |RGS..NAM|E is nam|
|00004a70| 65 20 66 6f 72 20 70 72 | 6f 63 65 73 73 2e 20 20 |e for pr|ocess. |
|00004a80| 49 74 20 69 73 20 6d 6f | 64 69 66 69 65 64 20 69 |It is mo|dified i|
|00004a90| 66 20 6e 65 63 65 73 73 | 61 72 79 20 74 6f 20 6d |f necess|ary to m|
|00004aa0| 61 6b 65 20 69 74 20 75 | 6e 69 71 75 65 2e 0a 42 |ake it u|nique..B|
|00004ab0| 55 46 46 45 52 20 69 73 | 20 74 68 65 20 62 75 66 |UFFER is| the buf|
|00004ac0| 66 65 72 20 6f 72 20 28 | 62 75 66 66 65 72 2d 6e |fer or (|buffer-n|
|00004ad0| 61 6d 65 29 20 74 6f 20 | 61 73 73 6f 63 69 61 74 |ame) to |associat|
|00004ae0| 65 20 77 69 74 68 20 74 | 68 65 20 70 72 6f 63 65 |e with t|he proce|
|00004af0| 73 73 2e 0a 20 50 72 6f | 63 65 73 73 20 6f 75 74 |ss.. Pro|cess out|
|00004b00| 70 75 74 20 67 6f 65 73 | 20 61 74 20 65 6e 64 20 |put goes| at end |
|00004b10| 6f 66 20 74 68 61 74 20 | 62 75 66 66 65 72 2c 20 |of that |buffer, |
|00004b20| 75 6e 6c 65 73 73 20 79 | 6f 75 20 73 70 65 63 69 |unless y|ou speci|
|00004b30| 66 79 0a 20 61 6e 20 6f | 75 74 70 75 74 20 73 74 |fy. an o|utput st|
|00004b40| 72 65 61 6d 20 6f 72 20 | 66 69 6c 74 65 72 20 66 |ream or |filter f|
|00004b50| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 68 61 6e 64 6c |unction |to handl|
|00004b60| 65 20 74 68 65 20 6f 75 | 74 70 75 74 2e 0a 20 42 |e the ou|tput.. B|
|00004b70| 55 46 46 45 52 20 6d 61 | 79 20 62 65 20 61 6c 73 |UFFER ma|y be als|
|00004b80| 6f 20 6e 69 6c 2c 20 6d | 65 61 6e 69 6e 67 20 74 |o nil, m|eaning t|
|00004b90| 68 61 74 20 74 68 69 73 | 20 70 72 6f 63 65 73 73 |hat this| process|
|00004ba0| 20 69 73 20 6e 6f 74 20 | 61 73 73 6f 63 69 61 74 | is not |associat|
|00004bb0| 65 64 0a 20 77 69 74 68 | 20 61 6e 79 20 62 75 66 |ed. with| any buf|
|00004bc0| 66 65 72 0a 54 68 69 72 | 64 20 61 72 67 20 69 73 |fer.Thir|d arg is|
|00004bd0| 20 63 6f 6d 6d 61 6e 64 | 20 6e 61 6d 65 2c 20 74 | command| name, t|
|00004be0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 61 20 73 68 65 |he name |of a she|
|00004bf0| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 2e 0a 52 65 6d 61 |ll comma|nd..Rema|
|00004c00| 69 6e 69 6e 67 20 61 72 | 67 75 6d 65 6e 74 73 20 |ining ar|guments |
|00004c10| 61 72 65 20 74 68 65 20 | 61 72 67 75 6d 65 6e 74 |are the |argument|
|00004c20| 73 20 66 6f 72 20 74 68 | 65 20 63 6f 6d 6d 61 6e |s for th|e comman|
|00004c30| 64 2e 0a 57 69 6c 64 63 | 61 72 64 73 20 61 6e 64 |d..Wildc|ards and|
|00004c40| 20 72 65 64 69 72 65 63 | 74 69 6f 6e 20 61 72 65 | redirec|tion are|
|00004c50| 20 68 61 6e 64 6c 65 64 | 20 61 73 20 75 73 75 61 | handled| as usua|
|00004c60| 6c 20 69 6e 20 74 68 65 | 20 73 68 65 6c 6c 2e 1f |l in the| shell..|
|00004c70| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 74 61 72 |.(defali|as 'star|
|00004c80| 74 2d 70 72 6f 63 65 73 | 73 2d 73 68 65 6c 6c 2d |t-proces|s-shell-|
|00004c90| 63 6f 6d 6d 61 6e 64 20 | 23 5b 28 6e 61 6d 65 20 |command |#[(name |
|00004ca0| 62 75 66 66 65 72 20 26 | 72 65 73 74 20 61 72 67 |buffer &|rest arg|
|00004cb0| 73 29 20 22 08 c1 3d 83 | 0e 00 c2 c3 5c 66 0d 0e |s) "..=.|....\f..|
|00004cc0| 06 24 87 c3 5c 66 0d 0e | 07 0e 08 c9 ca 0e 06 cb |.$..\f..|........|
|00004cd0| 23 25 87 22 20 5b 73 79 | 73 74 65 6d 2d 74 79 70 |#%." [sy|stem-typ|
|00004ce0| 65 20 76 61 78 2d 76 6d | 73 20 61 70 70 6c 79 20 |e vax-vm|s apply |
|00004cf0| 73 74 61 72 74 2d 70 72 | 6f 63 65 73 73 20 6e 61 |start-pr|ocess na|
|00004d00| 6d 65 20 62 75 66 66 65 | 72 20 61 72 67 73 20 73 |me buffe|r args s|
|00004d10| 68 65 6c 6c 2d 66 69 6c | 65 2d 6e 61 6d 65 20 73 |hell-fil|e-name s|
|00004d20| 68 65 6c 6c 2d 63 6f 6d | 6d 61 6e 64 2d 73 77 69 |hell-com|mand-swi|
|00004d30| 74 63 68 20 6d 61 70 63 | 6f 6e 63 61 74 20 69 64 |tch mapc|oncat id|
|00004d40| 65 6e 74 69 74 79 20 22 | 20 22 5d 20 39 20 28 23 |entity "| "] 9 (#|
|00004d50| 24 20 2e 20 31 38 39 32 | 38 29 5d 29 0a 23 40 37 |$ . 1892|8)]).#@7|
|00004d60| 31 20 45 78 65 63 75 74 | 65 20 74 68 65 20 42 4f |1 Execut|e the BO|
|00004d70| 44 59 20 66 6f 72 6d 73 | 2c 20 72 65 73 74 6f 72 |DY forms|, restor|
|00004d80| 69 6e 67 20 74 68 65 20 | 67 6c 6f 62 61 6c 20 76 |ing the |global v|
|00004d90| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 6d 61 74 63 |alue of |the matc|
|00004da0| 68 20 64 61 74 61 2e 1f | 0a 28 64 65 66 61 6c 69 |h data..|.(defali|
|00004db0| 61 73 20 27 73 61 76 65 | 2d 6d 61 74 63 68 2d 64 |as 'save|-match-d|
|00004dc0| 61 74 61 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ata '(ma|cro . #[|
|00004dd0| 28 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 c1 |(&rest b|ody) "..|
|00004de0| 21 1a c3 5c 6e c4 44 43 | c5 c6 0e 07 42 c8 5c 6e |!..\n.DC|....B.\n|
|00004df0| 44 45 45 29 87 22 20 5b | 6d 61 6b 65 2d 73 79 6d |DEE)." [|make-sym|
|00004e00| 62 6f 6c 20 22 6d 61 74 | 63 68 2d 64 61 74 61 22 |bol "mat|ch-data"|
|00004e10| 20 6f 72 69 67 69 6e 61 | 6c 20 6c 65 74 20 28 6d | origina|l let (m|
|00004e20| 61 74 63 68 2d 64 61 74 | 61 29 20 75 6e 77 69 6e |atch-dat|a) unwin|
|00004e30| 64 2d 70 72 6f 74 65 63 | 74 20 70 72 6f 67 6e 20 |d-protec|t progn |
|00004e40| 62 6f 64 79 20 73 74 6f | 72 65 2d 6d 61 74 63 68 |body sto|re-match|
|00004e50| 2d 64 61 74 61 5d 20 36 | 20 28 23 24 20 2e 20 31 |-data] 6| (#$ . 1|
|00004e60| 39 38 31 30 29 5d 29 29 | 0a 23 40 33 33 36 20 52 |9810)]))|.#@336 R|
|00004e70| 65 74 75 72 6e 20 73 74 | 72 69 6e 67 20 6f 66 20 |eturn st|ring of |
|00004e80| 74 65 78 74 20 6d 61 74 | 63 68 65 64 20 62 79 20 |text mat|ched by |
|00004e90| 6c 61 73 74 20 73 65 61 | 72 63 68 2e 0a 4e 55 4d |last sea|rch..NUM|
|00004ea0| 20 73 70 65 63 69 66 69 | 65 73 20 77 68 69 63 68 | specifi|es which|
|00004eb0| 20 70 61 72 65 6e 74 68 | 65 73 69 7a 65 64 20 65 | parenth|esized e|
|00004ec0| 78 70 72 65 73 73 69 6f | 6e 20 69 6e 20 74 68 65 |xpressio|n in the|
|00004ed0| 20 6c 61 73 74 20 72 65 | 67 65 78 70 2e 0a 20 56 | last re|gexp.. V|
|00004ee0| 61 6c 75 65 20 69 73 20 | 6e 69 6c 20 69 66 20 4e |alue is |nil if N|
|00004ef0| 55 4d 74 68 20 70 61 69 | 72 20 64 69 64 6e 27 74 |UMth pai|r didn't|
|00004f00| 20 6d 61 74 63 68 2c 20 | 6f 72 20 74 68 65 72 65 | match, |or there|
|00004f10| 20 77 65 72 65 20 6c 65 | 73 73 20 74 68 61 6e 20 | were le|ss than |
|00004f20| 4e 55 4d 20 70 61 69 72 | 73 2e 0a 5a 65 72 6f 20 |NUM pair|s..Zero |
|00004f30| 6d 65 61 6e 73 20 74 68 | 65 20 65 6e 74 69 72 65 |means th|e entire|
|00004f40| 20 74 65 78 74 20 6d 61 | 74 63 68 65 64 20 62 79 | text ma|tched by|
|00004f50| 20 74 68 65 20 77 68 6f | 6c 65 20 72 65 67 65 78 | the who|le regex|
|00004f60| 70 20 6f 72 20 77 68 6f | 6c 65 20 73 74 72 69 6e |p or who|le strin|
|00004f70| 67 2e 0a 53 54 52 49 4e | 47 20 73 68 6f 75 6c 64 |g..STRIN|G should|
|00004f80| 20 62 65 20 67 69 76 65 | 6e 20 69 66 20 74 68 65 | be give|n if the|
|00004f90| 20 6c 61 73 74 20 73 65 | 61 72 63 68 20 77 61 73 | last se|arch was|
|00004fa0| 20 62 79 20 60 73 74 72 | 69 6e 67 2d 6d 61 74 63 | by `str|ing-matc|
|00004fb0| 68 27 20 6f 6e 20 53 54 | 52 49 4e 47 2e 1f 0a 28 |h' on ST|RING...(|
|00004fc0| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 74 63 68 2d |defalias| 'match-|
|00004fd0| 73 74 72 69 6e 67 20 23 | 5b 28 6e 75 6d 20 26 6f |string #|[(num &o|
|00004fe0| 70 74 69 6f 6e 61 6c 20 | 73 74 72 69 6e 67 29 20 |ptional |string) |
|00004ff0| 22 08 94 85 15 00 09 83 | 10 00 09 08 94 08 95 4f |".......|.......O|
|00005000| 87 08 94 08 95 7b 87 22 | 20 5b 6e 75 6d 20 73 74 |.....{."| [num st|
|00005010| 72 69 6e 67 5d 20 33 20 | 28 23 24 20 2e 20 32 30 |ring] 3 |(#$ . 20|
|00005020| 30 37 39 29 5d 29 0a 23 | 40 36 35 20 51 75 6f 74 |079)]).#|@65 Quot|
|00005030| 65 20 61 6e 20 61 72 67 | 75 6d 65 6e 74 20 66 6f |e an arg|ument fo|
|00005040| 72 20 70 61 73 73 69 6e | 67 20 61 73 20 61 72 67 |r passin|g as arg|
|00005050| 75 6d 65 6e 74 20 74 6f | 20 61 6e 20 69 6e 66 65 |ument to| an infe|
|00005060| 72 69 6f 72 20 73 68 65 | 6c 6c 2e 1f 0a 28 64 65 |rior she|ll...(de|
|00005070| 66 61 6c 69 61 73 20 27 | 73 68 65 6c 6c 2d 71 75 |falias '|shell-qu|
|00005080| 6f 74 65 2d 61 72 67 75 | 6d 65 6e 74 20 23 5b 28 |ote-argu|ment #[(|
|00005090| 61 72 67 75 6d 65 6e 74 | 29 20 22 08 c1 3d 83 08 |argument|) "..=..|
|000050a0| 00 5c 6e 87 08 c3 3d 83 | 13 00 c4 5c 6e c4 51 87 |.\n...=.|...\n.Q.|
|000050b0| c5 c6 c7 1e 08 1e 09 1e | 5c 6e cb cc 5c 6e 0e 09 |........|\n..\n..|
|000050c0| 23 83 43 00 c6 94 16 08 | 0e 5c 6e 5c 6e 0e 09 0e |#.C.....|.\n\n...|
|000050d0| 08 4f cd 5c 6e 0e 08 89 | 54 4f 52 16 5c 6e 0e 08 |.O.\n...|TOR.\n..|
|000050e0| 54 16 09 82 1c 00 0e 5c | 6e 5c 6e 0e 09 c7 4f 50 |T......\|n\n...OP|
|000050f0| 2b 87 22 20 5b 73 79 73 | 74 65 6d 2d 74 79 70 65 |+." [sys|tem-type|
|00005100| 20 6d 73 2d 64 6f 73 20 | 61 72 67 75 6d 65 6e 74 | ms-dos |argument|
|00005110| 20 77 69 6e 64 6f 77 73 | 2d 6e 74 20 22 5c 22 22 | windows|-nt "\""|
|00005120| 20 22 22 20 30 20 6e 69 | 6c 20 65 6e 64 20 73 74 | "" 0 ni|l end st|
|00005130| 61 72 74 20 72 65 73 75 | 6c 74 20 73 74 72 69 6e |art resu|lt strin|
|00005140| 67 2d 6d 61 74 63 68 20 | 22 5b 5e 2d 30 2d 39 61 |g-match |"[^-0-9a|
|00005150| 2d 7a 41 2d 5a 5f 2e 2f | 5d 22 20 22 5c 5c 22 5d |-zA-Z_./|]" "\\"]|
|00005160| 20 36 20 28 23 24 20 2e | 20 32 30 35 32 34 29 5d | 6 (#$ .| 20524)]|
|00005170| 29 0a 23 40 31 36 37 20 | 52 65 74 75 72 6e 20 61 |).#@167 |Return a|
|00005180| 20 6e 65 77 20 73 79 6e | 74 61 78 20 74 61 62 6c | new syn|tax tabl|
|00005190| 65 2e 0a 49 74 20 69 6e | 68 65 72 69 74 73 20 61 |e..It in|herits a|
|000051a0| 6c 6c 20 6c 65 74 74 65 | 72 73 20 61 6e 64 20 63 |ll lette|rs and c|
|000051b0| 6f 6e 74 72 6f 6c 20 63 | 68 61 72 61 63 74 65 72 |ontrol c|haracter|
|000051c0| 73 20 66 72 6f 6d 20 74 | 68 65 20 73 74 61 6e 64 |s from t|he stand|
|000051d0| 61 72 64 0a 73 79 6e 74 | 61 78 20 74 61 62 6c 65 |ard.synt|ax table|
|000051e0| 3b 20 6f 74 68 65 72 20 | 63 68 61 72 61 63 74 65 |; other |characte|
|000051f0| 72 73 20 61 72 65 20 63 | 6f 70 69 65 64 20 66 72 |rs are c|opied fr|
|00005200| 6f 6d 20 74 68 65 20 73 | 74 61 6e 64 61 72 64 20 |om the s|tandard |
|00005210| 73 79 6e 74 61 78 20 74 | 61 62 6c 65 2e 1f 0a 28 |syntax t|able...(|
|00005220| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 6b 65 2d 73 |defalias| 'make-s|
|00005230| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 23 5b 28 26 |yntax-ta|ble #[(&|
|00005240| 6f 70 74 69 6f 6e 61 6c | 20 6f 6c 64 74 61 62 6c |optional| oldtabl|
|00005250| 65 29 20 22 08 83 08 00 | c1 08 21 87 c1 20 c2 1b |e) "....|..!.. ..|
|00005260| 1c c5 13 c5 c6 58 83 21 | 00 5c 66 0b c2 49 88 0b |.....X.!|.\f..I..|
|00005270| 54 89 13 82 10 00 c7 13 | c7 c8 58 83 35 00 5c 66 |T.......|..X.5.\f|
|00005280| 0b c2 49 88 0b 54 89 13 | 82 24 00 c9 13 c9 ca 58 |..I..T..|.$.....X|
|00005290| 83 49 00 5c 66 0b c2 49 | 88 0b 54 89 13 82 38 00 |.I.\f..I|..T...8.|
|000052a0| cb 13 cb cc 58 83 5d 00 | 5c 66 0b c2 49 88 0b 54 |....X.].|\f..I..T|
|000052b0| 89 13 82 4c 00 5c 66 2a | 87 22 20 5b 6f 6c 64 74 |...L.\f*|." [oldt|
|000052c0| 61 62 6c 65 20 63 6f 70 | 79 2d 73 79 6e 74 61 78 |able cop|y-syntax|
|000052d0| 2d 74 61 62 6c 65 20 6e | 69 6c 20 69 20 74 61 62 |-table n|il i tab|
|000052e0| 6c 65 20 30 20 33 31 20 | 36 35 20 39 30 20 39 37 |le 0 31 |65 90 97|
|000052f0| 20 31 32 32 20 31 32 38 | 20 32 35 35 5d 20 34 20 | 122 128| 255] 4 |
|00005300| 28 23 24 20 2e 20 32 30 | 38 35 36 29 5d 29 0a 23 |(#$ . 20|856)]).#|
|00005310| 40 33 39 38 20 47 69 76 | 65 20 4b 45 59 20 61 20 |@398 Giv|e KEY a |
|00005320| 67 6c 6f 62 61 6c 20 62 | 69 6e 64 69 6e 67 20 61 |global b|inding a|
|00005330| 73 20 43 4f 4d 4d 41 4e | 44 2e 0a 43 4f 4d 4d 41 |s COMMAN|D..COMMA|
|00005340| 4e 44 20 69 73 20 61 20 | 73 79 6d 62 6f 6c 20 6e |ND is a |symbol n|
|00005350| 61 6d 69 6e 67 20 61 6e | 20 69 6e 74 65 72 61 63 |aming an| interac|
|00005360| 74 69 76 65 6c 79 2d 63 | 61 6c 6c 61 62 6c 65 20 |tively-c|allable |
|00005370| 66 75 6e 63 74 69 6f 6e | 2e 0a 4b 45 59 20 69 73 |function|..KEY is|
|00005380| 20 61 20 6b 65 79 20 73 | 65 71 75 65 6e 63 65 20 | a key s|equence |
|00005390| 28 61 20 73 74 72 69 6e | 67 20 6f 72 20 76 65 63 |(a strin|g or vec|
|000053a0| 74 6f 72 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |tor of c|haracter|
|000053b0| 73 20 6f 72 20 65 76 65 | 6e 74 20 74 79 70 65 73 |s or eve|nt types|
|000053c0| 29 2e 0a 4e 6f 6e 2d 41 | 53 43 49 49 20 63 68 61 |)..Non-A|SCII cha|
|000053d0| 72 61 63 74 65 72 73 20 | 77 69 74 68 20 63 6f 64 |racters |with cod|
|000053e0| 65 73 20 61 62 6f 76 65 | 20 31 32 37 20 28 73 75 |es above| 127 (su|
|000053f0| 63 68 20 61 73 20 49 53 | 4f 20 4c 61 74 69 6e 2d |ch as IS|O Latin-|
|00005400| 31 29 0a 63 61 6e 20 62 | 65 20 69 6e 63 6c 75 64 |1).can b|e includ|
|00005410| 65 64 20 69 66 20 79 6f | 75 20 75 73 65 20 61 20 |ed if yo|u use a |
|00005420| 76 65 63 74 6f 72 2e 0a | 4e 6f 74 65 20 74 68 61 |vector..|Note tha|
|00005430| 74 20 69 66 20 4b 45 59 | 20 68 61 73 20 61 20 6c |t if KEY| has a l|
|00005440| 6f 63 61 6c 20 62 69 6e | 64 69 6e 67 20 69 6e 20 |ocal bin|ding in |
|00005450| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00005460| 65 72 0a 74 68 61 74 20 | 6c 6f 63 61 6c 20 62 69 |er.that |local bi|
|00005470| 6e 64 69 6e 67 20 77 69 | 6c 6c 20 63 6f 6e 74 69 |nding wi|ll conti|
|00005480| 6e 75 65 20 74 6f 20 73 | 68 61 64 6f 77 20 61 6e |nue to s|hadow an|
|00005490| 79 20 67 6c 6f 62 61 6c | 20 62 69 6e 64 69 6e 67 |y global| binding|
|000054a0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6c |...(defa|lias 'gl|
|000054b0| 6f 62 61 6c 2d 73 65 74 | 2d 6b 65 79 20 23 5b 28 |obal-set|-key #[(|
|000054c0| 6b 65 79 20 63 6f 6d 6d | 61 6e 64 29 20 22 c0 09 |key comm|and) "..|
|000054d0| 21 84 12 00 09 3b 84 12 | 00 c2 c3 c4 09 44 5c 22 |!....;..|.....D\"|
|000054e0| 88 c5 c6 20 09 0e 07 23 | 88 c8 87 22 20 5b 76 65 |... ...#|..." [ve|
|000054f0| 63 74 6f 72 70 20 6b 65 | 79 20 73 69 67 6e 61 6c |ctorp ke|y signal|
|00005500| 20 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 | wrong-t|ype-argu|
|00005510| 6d 65 6e 74 20 61 72 72 | 61 79 70 20 64 65 66 69 |ment arr|ayp defi|
|00005520| 6e 65 2d 6b 65 79 20 63 | 75 72 72 65 6e 74 2d 67 |ne-key c|urrent-g|
|00005530| 6c 6f 62 61 6c 2d 6d 61 | 70 20 63 6f 6d 6d 61 6e |lobal-ma|p comman|
|00005540| 64 20 6e 69 6c 5d 20 34 | 20 28 23 24 20 2e 20 32 |d nil] 4| (#$ . 2|
|00005550| 31 32 36 39 29 20 22 4b | 53 65 74 20 6b 65 79 20 |1269) "K|Set key |
|00005560| 67 6c 6f 62 61 6c 6c 79 | 3a 20 5c 6e 43 53 65 74 |globally|: \nCSet|
|00005570| 20 6b 65 79 20 25 73 20 | 74 6f 20 63 6f 6d 6d 61 | key %s |to comma|
|00005580| 6e 64 3a 20 22 5d 29 0a | 23 40 34 30 34 20 47 69 |nd: "]).|#@404 Gi|
|00005590| 76 65 20 4b 45 59 20 61 | 20 6c 6f 63 61 6c 20 62 |ve KEY a| local b|
|000055a0| 69 6e 64 69 6e 67 20 61 | 73 20 43 4f 4d 4d 41 4e |inding a|s COMMAN|
|000055b0| 44 2e 0a 43 4f 4d 4d 41 | 4e 44 20 69 73 20 61 20 |D..COMMA|ND is a |
|000055c0| 73 79 6d 62 6f 6c 20 6e | 61 6d 69 6e 67 20 61 6e |symbol n|aming an|
|000055d0| 20 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 2d 63 | interac|tively-c|
|000055e0| 61 6c 6c 61 62 6c 65 20 | 66 75 6e 63 74 69 6f 6e |allable |function|
|000055f0| 2e 0a 4b 45 59 20 69 73 | 20 61 20 6b 65 79 20 73 |..KEY is| a key s|
|00005600| 65 71 75 65 6e 63 65 20 | 28 61 20 73 74 72 69 6e |equence |(a strin|
|00005610| 67 20 6f 72 20 76 65 63 | 74 6f 72 20 6f 66 20 63 |g or vec|tor of c|
|00005620| 68 61 72 61 63 74 65 72 | 73 20 6f 72 20 65 76 65 |haracter|s or eve|
|00005630| 6e 74 20 74 79 70 65 73 | 29 2e 0a 4e 6f 6e 2d 41 |nt types|)..Non-A|
|00005640| 53 43 49 49 20 63 68 61 | 72 61 63 74 65 72 73 20 |SCII cha|racters |
|00005650| 77 69 74 68 20 63 6f 64 | 65 73 20 61 62 6f 76 65 |with cod|es above|
|00005660| 20 31 32 37 20 28 73 75 | 63 68 20 61 73 20 49 53 | 127 (su|ch as IS|
|00005670| 4f 20 4c 61 74 69 6e 2d | 31 29 0a 63 61 6e 20 62 |O Latin-|1).can b|
|00005680| 65 20 69 6e 63 6c 75 64 | 65 64 20 69 66 20 79 6f |e includ|ed if yo|
|00005690| 75 20 75 73 65 20 61 20 | 76 65 63 74 6f 72 2e 0a |u use a |vector..|
|000056a0| 54 68 65 20 62 69 6e 64 | 69 6e 67 20 67 6f 65 73 |The bind|ing goes|
|000056b0| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|000056c0| 62 75 66 66 65 72 27 73 | 20 6c 6f 63 61 6c 20 6d |buffer's| local m|
|000056d0| 61 70 2c 0a 77 68 69 63 | 68 20 69 6e 20 6d 6f 73 |ap,.whic|h in mos|
|000056e0| 74 20 63 61 73 65 73 20 | 69 73 20 73 68 61 72 65 |t cases |is share|
|000056f0| 64 20 77 69 74 68 20 61 | 6c 6c 20 6f 74 68 65 72 |d with a|ll other|
|00005700| 20 62 75 66 66 65 72 73 | 20 69 6e 20 74 68 65 20 | buffers| in the |
|00005710| 73 61 6d 65 20 6d 61 6a | 6f 72 20 6d 6f 64 65 2e |same maj|or mode.|
|00005720| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 6f 63 |..(defal|ias 'loc|
|00005730| 61 6c 2d 73 65 74 2d 6b | 65 79 20 23 5b 28 6b 65 |al-set-k|ey #[(ke|
|00005740| 79 20 63 6f 6d 6d 61 6e | 64 29 20 22 c0 20 89 19 |y comman|d) ". ..|
|00005750| 84 0e 00 c2 c3 20 89 11 | 21 88 c4 0d 21 84 20 00 |..... ..|!...!. .|
|00005760| 0d 3b 84 20 00 c6 c7 c8 | 0d 44 5c 22 88 c9 09 0d |.;. ....|.D\"....|
|00005770| 0e 5c 6e 23 88 29 cb 87 | 22 20 5b 63 75 72 72 65 |.\n#.)..|" [curre|
|00005780| 6e 74 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 6d 61 70 |nt-local|-map map|
|00005790| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 6d | use-loc|al-map m|
|000057a0| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|000057b0| 70 20 76 65 63 74 6f 72 | 70 20 6b 65 79 20 73 69 |p vector|p key si|
|000057c0| 67 6e 61 6c 20 77 72 6f | 6e 67 2d 74 79 70 65 2d |gnal wro|ng-type-|
|000057d0| 61 72 67 75 6d 65 6e 74 | 20 61 72 72 61 79 70 20 |argument| arrayp |
|000057e0| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 6f 6d 6d 61 |define-k|ey comma|
|000057f0| 6e 64 20 6e 69 6c 5d 20 | 35 20 28 23 24 20 2e 20 |nd nil] |5 (#$ . |
|00005800| 32 31 39 30 32 29 20 22 | 4b 53 65 74 20 6b 65 79 |21902) "|KSet key|
|00005810| 20 6c 6f 63 61 6c 6c 79 | 3a 20 5c 6e 43 53 65 74 | locally|: \nCSet|
|00005820| 20 6b 65 79 20 25 73 20 | 6c 6f 63 61 6c 6c 79 20 | key %s |locally |
|00005830| 74 6f 20 63 6f 6d 6d 61 | 6e 64 3a 20 22 5d 29 0a |to comma|nd: "]).|
|00005840| 23 40 38 36 20 52 65 6d | 6f 76 65 20 67 6c 6f 62 |#@86 Rem|ove glob|
|00005850| 61 6c 20 62 69 6e 64 69 | 6e 67 20 6f 66 20 4b 45 |al bindi|ng of KE|
|00005860| 59 2e 0a 4b 45 59 20 69 | 73 20 61 20 73 74 72 69 |Y..KEY i|s a stri|
|00005870| 6e 67 20 72 65 70 72 65 | 73 65 6e 74 69 6e 67 20 |ng repre|senting |
|00005880| 61 20 73 65 71 75 65 6e | 63 65 20 6f 66 20 6b 65 |a sequen|ce of ke|
|00005890| 79 73 74 72 6f 6b 65 73 | 2e 1f 0a 28 64 65 66 61 |ystrokes|...(defa|
|000058a0| 6c 69 61 73 20 27 67 6c | 6f 62 61 6c 2d 75 6e 73 |lias 'gl|obal-uns|
|000058b0| 65 74 2d 6b 65 79 20 23 | 5b 28 6b 65 79 29 20 22 |et-key #|[(key) "|
|000058c0| c0 09 c2 5c 22 87 22 20 | 5b 67 6c 6f 62 61 6c 2d |...\"." |[global-|
|000058d0| 73 65 74 2d 6b 65 79 20 | 6b 65 79 20 6e 69 6c 5d |set-key |key nil]|
|000058e0| 20 33 20 28 23 24 20 2e | 20 32 32 35 39 37 29 20 | 3 (#$ .| 22597) |
|000058f0| 22 6b 55 6e 73 65 74 20 | 6b 65 79 20 67 6c 6f 62 |"kUnset |key glob|
|00005900| 61 6c 6c 79 3a 20 22 5d | 29 0a 23 40 38 35 20 52 |ally: "]|).#@85 R|
|00005910| 65 6d 6f 76 65 20 6c 6f | 63 61 6c 20 62 69 6e 64 |emove lo|cal bind|
|00005920| 69 6e 67 20 6f 66 20 4b | 45 59 2e 0a 4b 45 59 20 |ing of K|EY..KEY |
|00005930| 69 73 20 61 20 73 74 72 | 69 6e 67 20 72 65 70 72 |is a str|ing repr|
|00005940| 65 73 65 6e 74 69 6e 67 | 20 61 20 73 65 71 75 65 |esenting| a seque|
|00005950| 6e 63 65 20 6f 66 20 6b | 65 79 73 74 72 6f 6b 65 |nce of k|eystroke|
|00005960| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |s...(def|alias 'l|
|00005970| 6f 63 61 6c 2d 75 6e 73 | 65 74 2d 6b 65 79 20 23 |ocal-uns|et-key #|
|00005980| 5b 28 6b 65 79 29 20 22 | c0 20 83 5c 6e 00 c1 5c |[(key) "|. .\n..\|
|00005990| 6e c3 5c 22 88 c3 87 22 | 20 5b 63 75 72 72 65 6e |n.\"..."| [curren|
|000059a0| 74 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 6c 6f 63 61 |t-local-|map loca|
|000059b0| 6c 2d 73 65 74 2d 6b 65 | 79 20 6b 65 79 20 6e 69 |l-set-ke|y key ni|
|000059c0| 6c 5d 20 33 20 28 23 24 | 20 2e 20 32 32 37 39 39 |l] 3 (#$| . 22799|
|000059d0| 29 20 22 6b 55 6e 73 65 | 74 20 6b 65 79 20 6c 6f |) "kUnse|t key lo|
|000059e0| 63 61 6c 6c 79 3a 20 22 | 5d 29 0a 23 40 31 34 35 |cally: "|]).#@145|
|000059f0| 20 52 65 74 75 72 6e 20 | 6e 6f 6e 2d 6e 69 6c 20 | Return |non-nil |
|00005a00| 69 66 20 4f 42 4a 45 43 | 54 20 73 65 65 6d 73 20 |if OBJEC|T seems |
|00005a10| 74 6f 20 62 65 20 61 20 | 66 72 61 6d 65 20 63 6f |to be a |frame co|
|00005a20| 6e 66 69 67 75 72 61 74 | 69 6f 6e 2e 0a 41 6e 79 |nfigurat|ion..Any|
|00005a30| 20 6c 69 73 74 20 77 68 | 6f 73 65 20 63 61 72 20 | list wh|ose car |
|00005a40| 69 73 20 60 66 72 61 6d | 65 2d 63 6f 6e 66 69 67 |is `fram|e-config|
|00005a50| 75 72 61 74 69 6f 6e 27 | 20 69 73 20 61 73 73 75 |uration'| is assu|
|00005a60| 6d 65 64 20 74 6f 20 62 | 65 20 61 20 66 72 61 6d |med to b|e a fram|
|00005a70| 65 0a 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 2e |e.config|uration.|
|00005a80| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 72 61 |..(defal|ias 'fra|
|00005a90| 6d 65 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |me-confi|guration|
|00005aa0| 2d 70 20 23 5b 28 6f 62 | 6a 65 63 74 29 20 22 08 |-p #[(ob|ject) ".|
|00005ab0| 3a 85 09 00 08 40 c1 3d | 87 22 20 5b 6f 62 6a 65 |:....@.=|." [obje|
|00005ac0| 63 74 20 66 72 61 6d 65 | 2d 63 6f 6e 66 69 67 75 |ct frame|-configu|
|00005ad0| 72 61 74 69 6f 6e 5d 20 | 32 20 28 23 24 20 2e 20 |ration] |2 (#$ . |
|00005ae0| 32 33 30 32 35 29 5d 29 | 0a |23025)])|. |
+--------+-------------------------+-------------------------+--------+--------+
